Word og Excel er begge programmer i Microsoft Office-pakken. Word er et tekstbehandlingsprogram og Excel regneark-programmet . Å vite hvordan man skal få tilgang til Microsoft Word- tabeller fra Microsoft Excel kan være nyttig når du arbeider med Word tabeller . Visual Basic for Applications ( VBA ) er et programmeringsspråk som er lett å lære og bruke , og i noen få trinn kan du skrive VBA -kode for å få tilgang til en Word-tabell fra Excel. Instruksjoner
en

start Microsoft Office Word , velg " Insert"-menyen og klikk " Table" . Velg en tabell med to kolonner og to rader .

Klikk cellen i øvre venstre og skriv inn " COLUMN1 ", trykker " Tab " for å flytte til den andre kolonnen og skriv " COLUMN2 " .
< P > Klikk den første cellen i rad nummer to og type " Datq1 " . Trykk på " Tab " for å flytte til den andre kolonnen og skriv " Data2 "

Lagre dokumentet i "C : \\" . Som " . MyTableDoc.doc "
2

start Microsoft office Excel , velg " Developer "-fanen og klikk på « Visual Basic. " Klikk på " Insert"-menyen og velg " Module ".

Velg "Verktøy "-menyen og klikk på "Referanser ...". Kryss av i boksen ved siden av " Microsoft Word Object Library. " Klikk "OK".
3

Skriv inn følgende for å skape " getWordTableData " subrutinen : en

Private Sub getWordTableData ( )

Trykk "Enter . "
4

Skriv inn følgende for å lage nye variabler : en

Dim clmnCnt As Integer

Dim rowCnt As Integer
5

Type følgende for å opprette Word- objekter:

Set wrdApp = CreateObject ( " Word.Application ")

Set wrdDoc = wrdApp.Documents.Open ( "C : \\ myTableDoc.doc ")

6

Skriv inn følgende å sløyfe gjennom tabellen i " myTableDoc.doc " og vise innholdet gjennom en meldingsboks : .

for clmnCnt = 1 To wrdDoc.Tables ( 1 ) Søyler . Count

For rowCnt = 1 To wrdDoc.Tables ( 1 ) . Rows.Count

MsgBox wrdDoc.Tables ( 1 ) . Cell ( rowCnt , clmnCnt ) . Range.Text

Neste rowCnt

Neste clmnCnt
7

Skriv inn følgende for å frigjøre variable fra minnet : en

Set wrdApp = Ingenting

Set wrdDoc = Ingenting

Trykk " F5 " for å kjøre subrutine .