Visual Basic for Applications ( VBA ) , Microsofts scripting sprog til Excel og Word, kan brugere af disse programmer skriver scripts , der fremskynder almindelige opgaver som at få adgang til tabeldata . Ud over at give Excel-brugere mulighed for at styre Excel tabeldata , også VBA er et middel til at få adgang tabeller i Word-dokumenter. VBA udviklere henvise til denne evne ét Office-program til at køre en anden som " automation ". En fordel at automatisere Word dataudtræk giver er sparer tid . Uden automatisering kan Excel-brugere nødt til at bruge mere tidskrævende metoder til at bringe data ind i Excel fra Word. Instruktioner
1
Opret et nyt dokument i Word ved at trykke på " Ctrl- N . " Klik på " Indsæt" menuen og klik derefter på "Table " ikonet i "Table " panel . Klik på en celle ikonet for at lave en tabel og derefter skrive data i mindst den øverste række yderst til venstre celle. Gem dokumentet som " C: \\ WordTableData.doc " og luk derefter Word. Dette trin skaber eksempeldata , som du vil ekstrakt med Excel.
2
Opret et nyt dokument i Excel og derefter trykke på " Alt- F11 " for at indtaste Visual Basic integrerede udviklingsmiljø (IDE) . IDE-enheden giver mulighed for manuel indtastning VBA programmer Klik i modsætning til indspilning af makroer i Excel.
3
"Indsæt " og derefter " Modul " for at oprette et nyt modul til indtastning programkode . Indtast følgende kode vilkårligt sted inde det nye modul : Hej
Public Sub accessTable ()
Set appWD = CreateObject ( " Word.Application " )
appWD.Documents.Open Filename : = " C: \\ WordTableData.doc " , _
ConfirmConversions : = False , ReadOnly : = False , AddToRecentFiles : = False , salg
PasswordDocument : = "" , PasswordTemplate : = "" , Revert : = False , _
WritePasswordDocument : = "" , WritePasswordTemplate : = "" , format : = _
wdOpenFormatAuto
x = appWD.ActiveDocument.Tables ( 1). Rækker (1). celler (1)
MsgBox ( x )
appWD.Quit
End Sub
subroutine skaber en skjult forekomst af Microsoft Word , så bruger den til at åbne et Word- dokument og få værdien af en celle i dokumentets første tabel .
4
Klik IDE s "Referencer" post under menuen "Funktioner" og derefter rulle ned på listen over objekter , indtil du ser "Microsoft Word Object Library". Sæt et kryds i boksen til venstre for denne post , og luk derefter " dialogboksen Referencer . " Til at køre, din kode skal linke til Word virtuelle objekter (f.eks tabeller) . "Referencer" dialogboksen lader dig oprette dette link.
5.
Klik et vilkårligt sted inde i " accessTable " subrutine du skrev i trin 3 , og tryk derefter på " F5 " for at køre underprogram. Efter en kort pause, vil Excel vise en dialogboks med de data, du har indtastet i Word-dokumentet bord i Trin 1. .
6
Skriv følgende nye kode efter "Public Sub " erklæring i " accessTable " subrutine : Hej
dim someRow , someColumn
someRow = InputBox (" Indtast den række, du gerne vil trække data fra. " )
someColumn = InputBox ( " Indtast den kolonne, du gerne vil trække data fra. " )
Disse nye udsagn , og en, i det næste trin , så du kan vælge, hvilke tabelcelle at udtrække data fra .
7
Udskift erklæringen begynder med " x = appWD " med denne erklæring: .
x = appWD.ActiveDocument.Tables (1) Rækker ( someRow ) celler ( someColumn )
. 8
Kør subrutine , som du gjorde i trin 5 . Reager på anvisningerne for rækken og kolonne . Din reviderede program vil udtrække tabeldata fra cellen , du har angivet , og vise det i en dialogboks.
