Ako extrahovať dáta z tabuliek programu Word Použitie programu Excel VBA

Visual Basic for Applications ( VBA ) , Microsoft skriptovací jazyk pre Excel a Word , umožňuje užívateľom týchto programov , písať skripty , ktoré urýchľujú bežné úlohy , ako je prístup k dátam tabuľky . Okrem dáva užívateľovi programu Excel schopnosť riadiť dáta tabuľky programu Excel , VBA tiež poskytuje prostriedky pre prístup tabuľky v dokumentoch programu Word . Vývojári VBA nájdete na tejto schopnosti jedného programu Office spustiť ďalšie ako " automatizácie " . Jednou z výhod , ktoré automatizuje extrakcia dát Word poskytuje je úspora času . Bez automatizácie , používatelia programu Excel môže byť nutné použiť viac časovo náročné metódy pre uvedenie dáta do aplikácie Excel z programu Word . Pokyny dovolená 1

Vytvoriť nový dokument v programe Word stlačením tlačidla " Control - N . " Kliknite na menu " Vložiť " a potom kliknite na ikonu " Tabuľka " v paneli " Tabuľka " . Kliknutím na ľubovoľnú ikonu bunky , aby sa tabuľka a potom zadajte údaje do aspoň v hornom riadku v krajnom bunky . Uložte dokument ako " C : \\ WordTableData.doc " a zatvorte Word . Tento krok vytvorí vzorové údaje , ktoré budete extrahovať s aplikáciou Excel .
2

Vytvoriť nový dokument v programe Excel a potom stlačte kláves " Alt - F11 " do jazyka Visual Basic integrované vývojové prostredie ( IDE ) . IDE poskytuje prostriedky pre ručné zadávanie programov VBA , na rozdiel od nahrávanie makier v Exceli .
3

Kliknite na " Vložiť " a potom " Modul " vytvoriť nový modul pre zadanie kódu programu . Zadajte nasledujúci kód kdekoľvek vnútri nového modulu :

Public Sub accessTable ( )

Set appWD = CreateObject ( " Word.Application " )

appWD.Documents.Open súboru : = " C : \\ WordTableData.doc " , _

ConfirmConversions : = False , ReadOnly : = False , AddToRecentFiles : = False ,

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

WritePasswordDocument : = " " , WritePasswordTemplate : = " " , Formát : = _

wdOpenFormatAuto

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

MsgBox ( x )

appWD.Quit

End Sub

Tento podsystém vytvára skrytý inštancia aplikácie Microsoft Word , potom ju používa na otvorenie dokumentu programu Word a získať hodnotu bunky v prvej tabuľke v dokumente .
4

Kliknite na radič IDE v " Odkazy " položky v menu " Nástroje " a potom prejdite na zoznam objektov , kým sa nezobrazí " Microsoft Word Object Library . " Umiestnite Začiarknite políčko vľavo od tejto položky a potom zatvorte dialógové okno " Referencie " . Ak chcete spustiť , váš kód musí spojiť , aby aplikácie Word virtuálnych objektov ( napríklad tabuliek ) . V dialógovom okne " Odkazy " vám umožní vytvoriť na tento odkaz .
5

Kliknite na ľubovoľné miesto vo vnútri " accessTable " podprogram ste napísal v kroku 3 a potom stlačte kláves " F5 " , spustiť podprogram . Po krátkej pauze , Excel zobrazí dialógové okno s dátami , ktoré ste zadali v tabuľke dokumentu programu Word v kroku 1.
6

po " Public Sub " príkazu zadajte nasledujúci nový kód " accessTable " podprogram :

dim someRow , someColumn

someRow = InputBox ( " . Vložte riadok , ktorý chcete vytiahnuť dáta z " )

someColumn = InputBox ( " Zadajte stĺpec , ktorý chcete vytiahnuť dáta . " )

Tieto nové vyhlásenie , a jeden v ďalšom kroku , vám umožní vybrať , ktoré bunka tabuľky extrahovať dáta z
7

Vymeňte vyhlásenie začínajúcich " = x appWD " s týmto vyhlásením : ..

x = appWD.ActiveDocument.Tables ( 1 ) Riadky ( someRow ) bunky ( someColumn )
8

spustiť podprogram , ako ste v kroku 5. Odpovedzte na výzvy na riadku a stĺpca . Váš upravený program bude extrahovať dáta tabuľky z bunky , ktorú ste zadali a jeho zobrazenie v dialógovom okne .

• Predchádzajúca strana: Aké sú funkcie Insert MS Excel šírenie list ? 
• Ďalšia strana: MS Školenia Excel