Å vite hvordan du skal skrive et Word- makro som leser data fra Excel introduserer deg til en tilnærming for å kontrollere ett Office-program med en annen. Microsoft kaller denne type kontroll " Automation ". Automation lar et av Office- programmer som Word , Excel , Access og PowerPoint , etablere en link til , og deretter bruke de virtuelle objekter av et annet Office- program . Å skrive et Word- makro som leser data fra Excel , bruke " CreateObject " statement of Visual Basic for å opprette en kobling til Excel. Deretter bruke denne linken for å lese data fra Excel er " Cell " objekt . Instruksjoner
en

Åpne Excel , og skriv noen verdi i den første cellen i den første regneark. Klikk Office- knappen er " Lagre" -kommandoen, deretter skriver du "c : \\ ReadFromExcel.xlsx " for filnavnet . Klikk "Lagre " for å lagre arbeidsboken , og deretter lukke Excel.
2

Klikk Office- knappen i Word , og klikk deretter på " Alternativer"-knappen . Klikk på " Developer " boksen for å vise " Developer "-kategorien , som holder Words makro-kommandoer .
3

Klikk på " Utvikler " fanen " Visual Basic" -knappen for å gå inn i Visual Basic utvikling miljø .
4

Klikk på " Verktøy"-menyen , klikk på " Referanser "-kommandoen . Klikk på " Microsoft Excel gjenstander " element , som lar makroen tilgang til de virtuelle objekter av Excel.
5

Skriv inn følgende program i koden vinduet. Dette programmet skaper en kobling til Excel-programmet , og deretter lukke koblingen. Programmet ser foreløpig ikke gjøre noe med den etablerte link. Du vil nå bruke koblingen for å åpne Excel-arbeidsboken du opprettet i trinn 1. .

Public Sub ReadExcelData ( )

Dim pgmExcel Som Excel.Application

Sett pgmExcel = CreateObject ( " Excel.Application ")

pgmExcel.Quit

End Sub
6

Type følgende nye uttalelser etter "Set " statement. Disse uttalelsene åpne Excel-arbeidsboken du opprettet i trinn 1 , deretter lukker arbeidsboken . Den reviderte programmet ennå ikke lest noe informasjon fra arbeidsboken . Den neste setningen du skriver vil lese informasjon fra arbeidsboken

PgmExcel.Workbooks.Open "c : \\ ReadFromExcel.xlsx " .
7

Type følgende utsagn etter " Åpne "statement. Denne uttalelsen bruker pgmExcel objektet til å lese verdien av den første celle i arbeidsboken fra trinn 1 . Den " MsgBox " statement viser at verdien .

MsgBox pgmExcel.ActiveWorkbook.Sheets ( 1 ) . Cells ( 1 , 1 )
8

Klikk på en av programmets utsagn , og klikk "Kjør "-kommandoen i "Kjør "-menyen . Programmet vil kjøre og vise verdien av cellen der du skrev inn i trinn en .