Ako extrahovať tabuľky z viacerých dokumentov aplikácie Word a importovať ich do aplikácie Excel

aplikácia Excel nemôže importovať tabuľky programu Word tak ľahko , ako to bude možné ďalšie údaje . Jedným zo spôsobov , ako tabuľky programu Word do programu Excel je najprv previesť dáta v tabuľkách Word do hodnoty oddelené čiarkami , lepšie známy ako CSV . Ale to je časovo náročné úlohy . Ďalším riešením je použitie programu Excel programovací jazyk Visual Basic for Applications , čítať dáta na slovo tabuľku a skopírujte ho do tabuľky programu Excel . Použitie tohto prístupu zahŕňa použitie virtuálne objekty programu Word , vrátane " tabuľky " objekt . Návod dovolená 1

Pomocou Prieskumníka Windows skopírujte súbor programu Word , ktorý obsahuje aspoň jednu tabuľku do zložky " C : . \\ " Premenujte súbor ako " table.docx . " Budete písať úvodný program , ktorý bude čítať bunku tabuľky z tohto súboru .
2

Kliknite na kartu " Vývojár " , potom kliknite na tlačidlo " Visual Basic " pre vstup do jazyka Visual Basic programovacie prostredie . Vložte nasledujúci program do VB kódu okne . Tento program vytvorí odkaz na Word , ktorý umožňuje excel používať virtuálne predmety slovo je rovnako ako by program bol spustený v dokumente programu Word . Tento proces sa nazýva " automatizácie " .

Public Sub LoadWordTablebak ( ) klipart

Dim pgmWord Ako Word.Application

Set pgmWord = CreateObject ( " Word.Application " )

pgmWord.Documents.Open . ( "c : \\ table.docx " )

MsgBox pgmWord.ActiveDocument.Tables ( 1 ) Cell ( 1 , 1 )

pgmWord.ActiveDocument . Close

pgmWord.Quit

End Sub
3

kliknite na menu " Nástroje " , potom kliknite na " Odkazy " príkaz . Prechádzajte okne , ktoré sa objaví na vyhľadajte " Microsoft Word " položku, kliknite na zaškrtávacie políčko pre danú položku . Táto akcia umožňuje Excel prístup k vizuálnej objekty v dokumente programu Word .
4

Kliknite na ľubovoľný príkaz v programe a potom kliknite na príkaz v ponuke " Run " v " Spustiť " . Program zobrazí okno so správou zobrazujúce obsah bunky tabuľky v dokumente programu Word . Teraz budete rozšíriť program nahrať do úplnej tabuľky z ľubovoľného dokumentu programu Word .
5

vložte nasledujúci upravený program pod " End Sub " vyhlásenie pôvodného programu . Tento program vyzve užívateľa na zadanie názvu súboru dokumentu programu Word . Užívateľ musí zadať číslo tabuľky v dokumente . Program používa metódu automatizácie prvého programu načítať kopírovať zadanej tabuľky bunku bunky do tabuľky programu Excel . ClipArt

Public Sub LoadWordTable2 ( )

Dim docname As String

Dim TABLEID As Integer

Dim c , r, startRow As Integer

Dim curCell

Dim pgmWord Ako Word.Application

Set curCell = ActiveCell

Set pgmWord = CreateObject ( " Word.Application " )

docname = InputBox ( " Zadajte názov dokumentu Word " )

docname = InputBox ( " Zadajte názov dokumentu Word " )

Kým ( docname < > " " )

TABLEID = InputBox ( " Zadajte číslo tabuľky " )

pgmWord.Documents.Open ( " c : \\ table . docx " )

S pgmWord.ActiveDocument.Tables ( TABLEID )

startRow = ActiveCell.Row

c = 1. Columns.Count

pre r = 1. Rows.Count

curCell.Value = . Cell (r , c )

" Prechod na ďalší riadok

Set curCell = curCell.Offset ( 1 , 0 )

Ďalšie r

" Presun na ďalší stĺpec

Set curCell = Cells ( startRow , curCell.Column + 1 )

Next c

End With

pgmWord.ActiveDocument.Close

docname = InputBox ( " Zadajte názov dokumentu Word " )

Wendy

pgmWord . Ukončite klipart

End Sub
6

Kliknite na ikonu aplikácie " Excel " v paneli úloh systému Windows sa vráťte do programu Excel , kliknite na " Makrá " tlačidlo na záložke " Vývojár " . Double - kliknite na " LoadWordTable " Makro spustiť toto makro .
7

Zadajte názov dokumentu programu Word , ktorý obsahuje tabuľku , kedy sa zobrazí výzva k tomu, aby sa objaví . Zadajte číslo tabuľky , ktoré chcete , keď sa zobrazí výzva pre túto tabuľku . Napríklad , ak chcete , aby sa druhej tabuľky v dokumente , typu " 2 " . Excel načíta tabuľku do aktuálneho tabuľkového procesora .
8

Pokračovať vkladanie tabuľky programu Word s programom podľa potreby . Stlačte tlačidlo " Enter " na " Názov dokumentu " Výzva na ukončenie programu .

• Predchádzajúca strana: Ako vypočítať Kappa s aplikáciou Excel 
• Ďalšia strana: Ako zmeniť veľkosť textového poľa v programe Excel 2003