Vide, hvordan man skriver en Word makro, der læser data fra Excel introducerer dig til en tilgang til styring af en Office-program med en anden . Microsoft kalder denne form for kontrol " Automation ". Automatisering lader nogen af Office- programmer som Word , Excel, Access og PowerPoint , etablere et link til , og derefter bruge de virtuelle objekter i en anden Office-program . For at skrive en Word makro, der læser data fra Excel , skal du bruge " CreateObject " erklæring af Visual Basic for at oprette et link til Excel. Så brug denne link for at læse data fra Excel 's " Cell " objekt . Instruktioner
1
Open Excel, derefter skrive nogen værdi i den første celle i den første regneark. Klik på Office- knappen "Gem " kommando , og derefter skrive " c: \\ ReadFromExcel.xlsx " til filnavnet. Klik på "Gem " for at gemme projektmappen , og luk Excel.
2
Klik på Office -knappen i Word, og klik derefter på knappen "Indstillinger" . Klik på " Developer " afkrydsningsfeltet for at vise "Udvikler " fanen, som holder Word makro -kommandoer.
3
Klik på " Udvikler "-fanen er " Visual Basic " for at åbne Visual Basic udvikling miljø.
4
Klik på menuen "Funktioner" , og klik derefter på "Referencer" kommando. Klik på " Microsoft Excel objekter " element, som lader din makro adgang til de virtuelle genstande af Excel.
5.
Indtast følgende program i koden vinduet. Dette program skaber et link til Excel program, luk derefter linket. Programmet er endnu ikke gøre noget med den etablerede linket. Du skal nu bruge linket til at åbne Excel- projektmappe, du oprettede i trin 1. .
Public Sub ReadExcelData ()
Dim pgmExcel Som Excel.Application
Set pgmExcel = CreateObject ( " Excel.Application " )
pgmExcel.Quit
End Sub
6
Indtast de følgende nye erklæringer efter "Set" erklæring. Disse udsagn åbner Excel-projektmappe , du oprettede i trin 1, og derefter lukker projektmappen . Det reviderede program endnu ikke læst nogen oplysninger fra projektmappen. Den næste sætning , du skriver vil læse oplysninger fra projektmappen
PgmExcel.Workbooks.Open "c: \\ ReadFromExcel.xlsx " .
7
Indtast de følgende udsagn efter " Åbn "erklæring . Denne sætning bruger den pgmExcel objekt at læse værdien af den første celle i projektmappen fra trin 1 . Den " MsgBox " erklæring viser den værdi.
MsgBox pgmExcel.ActiveWorkbook.Sheets (1). Cells ( 1, 1)
8
Klik på en af programmets udsagn , og klik derefter på "Kør" kommandoen "Kør " i menuen. Dit program vil køre, og vise værdien af cellen , hvor du har skrevet i trin 1. .