Hvordan skrive en makro i Word som leser data fra Excel

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

Bruksanvisning

1 Åpne Excel, skriver noen verdi i den første cellen i den første regnearket. Klikk Office-knappen er "Lagre" -kommandoen, skriv "c: \ ReadFromExcel.xlsx" for filnavnet. Klikk "Lagre" for å lagre arbeidsboken, så nær Excel.

2 Klikk Office-knappen i Word, og klikk på "Alternativer" -knappen. Klikk på "Utvikler" boksen for å vise "Utvikler" fanen, som holder Words makro-kommandoer.

3 Klikk på "Utvikler" fanen "Visual Basic" -knappen for å gå inn i Visual Basic utviklingsmiljø.

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

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

Public Sub ReadExcelData ()

Dim pgmExcel Som Excel.Application

Sett pgmExcel = Create ( "Excel.Application")

pgmExcel.Quit

End Sub

6 Skriv inn følgende nye opplysninger etter "Set" statement. Disse uttalelsene åpne Excel-arbeidsboken du opprettet i trinn 1, og deretter lukke arbeidsboken. Den reviderte programmet har ennå ikke lest noe informasjon fra arbeidsboken. Den neste setningen du skriver vil lese informasjon fra arbeidsboken.

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

7 Skriv inn følgende uttalelser etter "Open" statement. Denne uttalelsen bruker pgmExcel objekt å lese verdien av den første cellen i arbeidsboken fra trinn 1. Den "MsgBox" statement viser den verdien.

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

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