Visual Basic for Applications ( VBA ) , låter Microsofts skriptspråk för Excel och Word , användare av dessa program skriva skript som snabbar upp vanliga uppgifter som att komma tabelldata . Förutom att ge Excel-användare möjlighet att hantera Excel tabelldata , ger VBA också ett medel för att komma åt tabeller i Word-dokument . VBA utvecklare hänvisar till denna förmåga av ett Office-program för att köra en annan som " automation ". En fördel att automatisera Word datautvinning erbjuder är sparar tid . Utan automation , kan Excel-användare behöver använda mer tidskrävande metoder för att föra data till Excel från Word . Instruktioner
1
Skapa ett nytt dokument i Word genom att trycka " Ctrl- N . " Klicka på " Infoga " -menyn och klicka sedan på " Table " ikonen i " Tabell " -panelen . Klicka på en cell -ikonen för att göra en tabell och sedan anger du data i åtminstone den översta raden är cellen längst till vänster . Spara dokumentet som " C : \\ WordTableData.doc " och stäng sedan Word . Detta steg skapar exempeldata som du extrahera med Excel .
2
Skapa ett nytt dokument i Excel och sedan på " Alt - F11 " för att gå in i Visual Basic integrerad utvecklingsmiljö ( IDE ) . IDE ger möjlighet för manuell in VBA -program , i motsats till att skapa makron i Excel .
3
Klicka på " Infoga " och sedan " modul " för att skapa en ny modul för att ange programkod . Skriv följande kod någonstans inuti den nya modulen :
Public Sub accessTable ( ) katalog
Set appWD = CreateObject ( " Word.Application " ) katalog
appWD.Documents.Open Filnamn : = " C : \\ WordTableData.doc " , _
ConfirmConversions : = False , ReadOnly : = False , AddToRecentFiles : = False ,
PasswordDocument : = " " , PasswordTemplate : = " " , Revert : = False , _
WritePasswordDocument : = " " , WritePasswordTemplate : = " " , Format : = _
wdOpenFormatAuto
x = appWD.ActiveDocument.Tables ( 1 ) . rader ( 1 ) . Cells ( 1 ) katalog
MsgBox (x ) katalog
appWD.Quit
End Sub
Denna subrutin skapar en dold instans av Microsoft Word , sedan använder den för att öppna ett Word- dokument och få värdet av en cell i dokumentets första bord .
4
Klicka IDE : s " Referenser " post under " Verktyg " -menyn och rulla ned i listan över objekt tills du ser " Microsoft Library Word Object . " Placera en kontroll i rutan till vänster om denna punkt och sedan stänga " dialogrutan Referenser . " För att köra , behöver din kod för att länka till Word virtuella objekt ( till exempel tabeller ) . "Referenser " i dialogrutan kan du skapa som länkar .
5
Klicka någonstans inne i " accessTable " subrutin du skrev i steg 3 och tryck sedan på " F5 " för att köra subrutinen . Efter en kort paus kommer Excel visas en dialogruta med de uppgifter du angav i Word-dokumentet tabellen i steg 1 .
6
Skriv in följande nya koden efter " Public Sub " uttalande i " accessTable " subrutin :
dim someRow , someColumn
someRow = InputBox ( " Ange den rad som du vill hämta data från . " ) katalog
someColumn = InputBox ( " Ange den kolumn som du vill hämta data från . " ) katalog
Dessa nya uttalanden , och det i nästa steg , kan du välja vilken tabell cell för att extrahera data från .
7
tillbaka uttalandet börjar med " x = appWD " med detta uttalande : .
x = appWD.ActiveDocument.Tables ( 1 ) Rows ( someRow ) Cells ( someColumn )
. 8
Kör subrutinen som du gjorde i steg 5 . Svara på frågorna för den rad och kolumn . Din reviderade programmet kommer att extrahera tabelldata från cellen du angav och visa den i en dialogruta .
