Att veta hur man skriver ett Word-makro som läser data från Excel introducerar dig till en metod för att styra ett Office-program med ett annat . Microsoft kallar denna typ av kontroll " Automation . " Automation låter någon av de Office-program som Word , Excel , Access och PowerPoint , skapa en länk till och sedan använda de virtuella föremålen i ett annat Office-program . För att skriva ett Word-makro som läser data från Excel , använd " CreateObject " uttalande av Visual Basic för att skapa en länk till Excel . Använd sedan denna länk för att läsa data från Excel " Cell " objektet . Instruktioner
1
Öppna Excel , skriv sedan ett värde i den första cellen i den första kalkylbladet . Klicka på Office- knappen är " Spara" -kommandot , skriv " c : \\ ReadFromExcel.xlsx " till filnamnet . Klicka på " Spara " för att spara arbetsboken och stäng Excel .
2
Klicka på Office- knappen i Word och klicka sedan på knappen "Alternativ" . Klicka på " Developer " kryssrutan för att visa " Utvecklare " fliken , som innehar Word makrokommandon .
3
Klicka på " Utvecklare " fliken för " Visual Basic " -knappen för att gå in i Visual Basic utveckling miljö .
4
Klicka på menyn "Verktyg" , klicka sedan på " Referenser " kommandot . Klicka på " Microsoft Excel objekt " objekt , som låter makrot komma åt de virtuella föremålen i Excel .
5
Skriv följande program i koden fönstret . Detta program skapar en länk till Excel- programmet , stäng sedan länken . Programmet har ännu inte göra något med den etablerade länken . Du ska nu använda länken för att öppna Excel- arbetsbok som du skapade i steg 1 .
Public Sub ReadExcelData ( ) katalog
Dim pgmExcel Som Excel.Application
Set pgmExcel = CreateObject ( " Excel.Application " ) katalog
pgmExcel.Quit
End Sub
6
Skriv följande nya uttalanden efter " Set " uttalande . Dessa uttalanden öppnar Excel -arbetsbok som du skapade i steg 1 , sedan stänger arbetsboken . Det reviderade programmet ännu inte läst någon information från arbetsboken . Nästa uttalande du skriver kommer att läsa information från arbetsboken
PgmExcel.Workbooks.Open " c : \\ ReadFromExcel.xlsx " .
7
Skriv följande uttalande efter " Öppna " uttalande . Detta uttalande använder pgmExcel objektet för att läsa värdet på den första cellen i arbetsboken från steg 1 . Den " MsgBox " uttalande visar det värdet .
MsgBox pgmExcel.ActiveWorkbook.Sheets ( 1 ) . Cells ( 1 , 1 )
8
Klicka på någon av programmets uttalanden , klicka "Kör " -kommandot för "Run " -menyn . Ditt program kommer att köras och visa värdet i cellen där du skrev i steg 1 .
