Visual Basic for Applications ( VBA ) , lar Microsofts skriptspråk for Excel og Word , brukere av disse programmene skrive skript som fremskynde vanlige oppgaver som å få tilgang til tabelldata . Foruten å gi Excel-brukere muligheten til å administrere Excel- tabellen data , gir VBA også et middel for å få tilgang tabeller i Word-dokumenter. VBA utviklere referere til denne muligheten for ett Office-program til å kjøre en annen som "automatisering ". En fordel at automatisere Word datauttrekk gir er tidsfaktoren . Uten automatisering, kan Excel-brukere må bruke mer tidkrevende metoder for å bringe data inn i Excel fra Word . Instruksjoner
en

Opprett et nytt dokument i Word ved å trykke " Ctrl- N . " Klikk på " Insert"-menyen og klikk deretter på "Table "-ikonet i "Table " panel . Klikk en celle ikonet for å lage en tabell og deretter inn data i minst den øverste raden er cellen lengst til venstre . Lagre dokumentet som "C : \\ WordTableData.doc " og lukk deretter Word. Dette trinnet oppretter eksempeldata som du vil trekke med Excel.
2

Opprett et nytt dokument i Excel og trykk deretter på "Alt- F11 " for å gå inn i Visual Basic integrert utviklingsmiljø (IDE ) . IDE gir mulighet for manuelt å skrive VBA- programmer , i motsetning til opptak makroer i Excel.
3

Klikk "Sett inn " og deretter " Module " for å opprette en ny modul for å legge inn programkode . Skriv inn følgende kode hvor som helst inne i den nye modulen : en

Public Sub accessTable ( )

Sett appWD = CreateObject ( " Word.Application ")

appWD.Documents.Open Filnavn : = "C : \\ WordTableData.doc " , _

ConfirmConversions : = False , Skrivebeskyttet : = False , AddToRecentFiles : = False , etter

PasswordDocument : = "" , PasswordTemplate : = "" , Revert : = False , _

WritePasswordDocument : = "" , WritePasswordTemplate : = " " , format : = _

wdOpenFormatAuto

x = appWD.ActiveDocument.Tables ( 1 ) . Rows ( 1 ) . Cells ( 1 )

MsgBox ( x )

appWD.Quit

End Sub

subrutine skaper en skjult forekomst av Microsoft Word , deretter bruker den til å åpne et Word-dokument og få verdien av en celle i dokumentets første tabellen .
4

Klikk IDE er " Referanser " element under "Verktøy "-menyen og deretter bla nedover listen over objekter til du ser "Microsoft Word Object Library. " Kryss av i boksen til venstre for denne artikkelen og deretter lukke " Referanser dialogboksen . " Å kjøre , trenger kode for å koble til Word sin virtuelle objekter ( for eksempel tabeller) . Den " Referanser " dialogboksen lar deg lage denne koblingen.
5

Klikk hvor som helst inne i " accessTable " subrutine du skrev i trinn 3 og trykk "F5 " for å kjøre subrutine . Etter en kort pause , vil Excel vise en dialogboks med dataene du har lagt inn i Word-dokumentet bord i trinn 1. .
6

Skriv inn følgende nye koden etter " Public Sub " statement i " accessTable " subrutine : en

dim someRow , someColumn

someRow = inputbox (" Skriv raden du ønsker å trekke ut data fra . ")

someColumn = inputbox ( " skriv inn kolonnen du ønsker å trekke data fra . ")

Disse nye uttalelser, og den i neste trinn , kan du velge hvilken tabell celle å trekke ut data fra .
7

Erstatt setningen begynner med " x = appWD " med denne uttalelsen: .

x = appWD.ActiveDocument.Tables ( 1 ) Rader ( someRow ) celler ( someColumn )
. 8

Kjør subrutine som du gjorde i trinn 5 . Svarer på forespørslene for rad og kolonne . Din revidert program vil trekke ut tabellen data fra cellen du anga og vise den i en dialogboks.