Ako získať prístup Word tabuľky Pomocou programu Excel VBA

Word a Excel sú obe aplikácie v balíku Microsoft Office . Word je aplikácia pre spracovanie textu a Excel tabuľkový . Vedieť , ako získať prístup tabuliek programu Microsoft Word z programu Microsoft Excel môžu byť užitočné pri práci s tabuľkami Word . Visual Basic for Applications ( VBA ) je programovací jazyk , ktorý je ľahké sa naučiť a používať , a v niekoľkých krokoch môžete písať kód jazyka VBA pre prístup k tabuľke programu Word z programu Excel . Pokyny dovolená 1

Spustite program Microsoft Office Word , vyberte ponuku " Vložiť " a kliknite na tlačidlo " Tabuľka " . Vyberte tabuľku s dvoma stĺpcami a dvoma riadkami .

Kliknite na bunku v ľavom hornom rohu a zadajte " Sloupec1 " , stlačte klávesu " Tab " sa presuniete na druhý stĺpec a zadajte " Sloupec2 " .
< P > Kliknite na prvú bunku v riadku číslo dva a zadajte " Datq1 " . Stlačením tlačidla " Tab " sa presuňte na druhý stĺpec a zadajte " Data2 "

Uložte dokument v " C : \\ " . " . MyTableDoc.doc " ako
2

Spustite aplikáciu Office Excel , vyberte kartu " Vývojár " , potom kliknite na " Visual Basic " . Kliknite na menu " Vložiť " a vyberte " Module " .

Zvoľte menu " Nástroje " a kliknite na " Referencie ... " . Zaškrtnite políčko vedľa " Microsoft Word Object Library . " Kliknite na tlačidlo " OK " .
3

Zadajte nasledujúci vytvoriť " getWordTableData " podprogram :

Private Sub getWordTableData ( )

Stlačte tlačidlo " Enter . "
4

Zadajte nasledujúci vytvoriť nové premenné : klipart

Dim clmnCnt As Integer

Dim rowCnt As Integer
5

Typ nasledujúce vytvoriť Word objekty :

Set wrdApp = CreateObject ( " Word.Application " )

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

zadajte nasledujúce prechádzať tabuľky v " myTableDoc.doc " a zobrazí jeho obsah cez okno so správou :

Pre clmnCnt = 1 Ak chcete wrdDoc.Tables ( 1 ) stĺpce . . Počet

rowCnt = 1 Ak chcete wrdDoc.Tables ( 1 ) . Rows.Count

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

Ďalšie rowCnt

Ďalšie clmnCnt
7

zadajte nasledujúce uvoľniť svoje premenné z pamäti :

Set wrdApp = Nothing

Set wrdDoc = Nothing

Stlačte " F5 " spustiť podprogram .

• Predchádzajúca strana: Ako priradiť riadok Počet premennej pomocou jazyka Visual Basic 
• Ďalšia strana: Ako nastaviť hodnotu určitého záznamu v programe Access Visual Basic