Word og Excel er begge programmer i Microsoft Office-pakken. Word er et tekstbehandlingsprogram og Excel et regnearksprogram . Vide, hvordan man få adgang til Microsoft Word tabeller fra Microsoft Excel kan være nyttigt , når du arbejder med Word tabeller . Visual Basic for Applications ( VBA ) er et programmeringssprog, der er let at lære og bruge, og i et par trin, du kan skrive VBA-kode for at få adgang en Word- tabel fra Excel. Instruktioner
1
Start Microsoft Office Word , skal du vælge "Indsæt " menuen og klik på " Table" . Vælg en tabel med to kolonner og to rækker .
Klik på den celle i øverste venstre og skriv " Kolonne1 " , tryk på " Tab" for at flytte til den anden kolonne og skriv " COLUMN2 " .
< P > Klik på den første celle i række nummer to og skriv " Datq1 " . Tryk på " Tab" for at flytte til den anden kolonne og skriv " Data2 "
Gem dokumentet i "C: \\ " . Som " . MyTableDoc.doc "
2
Start Microsoft Office Excel , skal du vælge "Udvikler "-fanen og klik derefter på "Visual Basic ". Klik på " Indsæt" menuen og vælg " Modul ".
Vælg menuen "Funktioner" og klik på " Referencer ... " . Afkryds feltet ved siden af " Microsoft Word Object Library ". Klik på "OK".
3 Skriv følgende for at skabe den " getWordTableData " subrutine : Hej
Private Sub getWordTableData ()
Tryk på " Enter. "
4
Skriv følgende for at oprette nye variabler : Hej
Dim clmnCnt As Integer
Dim rowCnt As Integer
5
Type følgende for at oprette Word objekter : Hej
Set wrdApp = CreateObject ( " Word.Application " )
Set wrdDoc = wrdApp.Documents.Open ( "C: \\ myTableDoc.doc " ) < br >
6
Skriv følgende at sløjfe gennem tabellen i " myTableDoc.doc ", og vise dets indhold gennem en besked boks : .
clmnCnt = 1 Til wrdDoc.Tables (1) kolonner . Count
rowCnt = 1 Til wrdDoc.Tables (1). Rækker
MsgBox wrdDoc.Tables (1). Cell ( rowCnt , clmnCnt ) . Range.Text
Næste rowCnt
Næste clmnCnt
7
Skriv følgende for at frigive din variabel fra hukommelsen : Hej
Set wrdApp = Nothing
Set wrdDoc = Nothing
Tryk på " F5 " for at køre din subrutine .