Word och Excel är båda program i Microsoft Office-paketet . Word är ett ordbehandlingsprogram och Excel ett kalkylprogram . Att veta hur man kommer åt Microsoft Word-tabeller från Microsoft Excel kan vara användbart när du arbetar med Word-tabeller . Visual Basic for Applications ( VBA ) är ett programmeringsspråk som är lätt att lära sig och använda , och i några få steg du kan skriva VBA-kod för att komma åt en Word-tabell från Excel . Instruktioner
1
Starta Microsoft Office Word , välj " Infoga " -menyn och klicka på " Tabell " . Välj ett bord med två kolumner och två rader .
Klicka på cellen längst upp till vänster och skriv " Kolumn1 " , tryck på "Tab " för att flytta till den andra kolumnen och skriv " Kolumn2 " .
Klicka på den första cellen i raden nummer två och typ " Datq1 " . Tryck på " Tab " för att flytta till den andra kolumnen och skriv " Data2 "
Spara dokumentet i " C : \\ " . Som " . MyTableDoc.doc "
2
Starta Microsoft Office Excel , välj " Utvecklare " fliken och klicka sedan på " Visual Basic . " Klicka på " Infoga " -menyn och välj " Modul . "
Välj " Verktyg " -menyn och klicka på " Referenser ... " . Markera rutan bredvid " Microsoft Word Object Library . " Klicka på " OK . " Addera 3 Skriv följande för att skapa den " getWordTableData " subrutin :
Private Sub getWordTableData ( ) katalog
Tryck " Enter . "
4
Skriv följande för att skapa nya variabler :
Dim clmnCnt As Integer
Dim rowCnt As Integer
5
Type följande för att skapa Word objekt :
Set wrdApp = CreateObject ( " Word.Application " ) katalog
Set wrdDoc = wrdApp.Documents.Open ( " C : \\ myTableDoc.doc " )
6
Skriv följande för att loopa igenom tabellen i " myTableDoc.doc " och visa dess innehåll genom en meddelanderuta : .
för clmnCnt = 1 till wrdDoc.Tables ( 1 ) Kolumner . Count
För rowCnt = 1 Till wrdDoc.Tables ( 1 ) . Rows.Count
MsgBox wrdDoc.Tables ( 1 ) . Cell ( rowCnt , clmnCnt ) . Range.Text
Nästa rowCnt
Nästa clmnCnt
7
Skriv följande för att frigöra din variabel från minnet :
Set wrdApp = Nothing
Set wrdDoc = Nothing
Tryck " F5 " för att köra din subrutin .
