Gebruik Windows Verkenner naar een Word- bestand met ten minste een tafel om de map te kopiëren " C : . \\ " Hernoem het bestand als ' table.docx . " U zult een inleidend programma dat een tabel cel van dit bestand zal lezen en schrijven . Kopen van 2

Klik op het tabblad "Ontwikkelaar " , klik vervolgens op de knop " Visual Basic " om de Visual Basic programmeeromgeving voeren . Plak het volgende programma in VB code venster . Dit programma maakt een koppeling naar Word , die het mogelijk maakt excel om virtuele objecten Word gewoon gebruiken alsof het programma werden uitgevoerd in een Word-document . Dit proces heet ' Automatisering '.

Public Sub LoadWordTablebak ( ) op

Dim pgmWord
Zoals Word.Application

Set pgmWord = CreateObject
( " Word.Application " ) < br

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

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

pgmWord.ActiveDocument . Sluiten

pgmWord.Quit

End Sub
3

Klik op het menu 'Extra' , klik vervolgens op de " References " commando . Blader door het venster dat verschijnt op de " Microsoft Word " item te vinden , klikt u op het selectievakje voor dat item . Deze actie laat Excel toegang tot de visuele objecten in een Word-document .
4

Klik enige verklaring in het programma , klik op "Run" commando van het menu "Run" . Het programma zal een bericht met de inhoud van een tabelcel in een Word-document weer te geven . Je zult nu uitbreiden van het programma te laden in een volledige tabel uit een Word-document .
5

Plak volgende herziene programma onder de " End Sub " verklaring van het oorspronkelijke programma . Dit programma vraagt ​​de gebruiker om de bestandsnaam van een Word-document . De gebruiker moet ook het nummer in van een tabel in het document . Het programma maakt gebruik van de automatisering methode van het eerste programma te laden kopieer de opgegeven tabel cel voor cel in een Excel -spreadsheet .

Public Sub LoadWordTable2 ( ) op

Dim DocName
als Koord

Dim TableId als Geheel

Dim c
, r , StartRow als Geheel

Dim curCell

Dim pgmWord
Zoals Word.Application

Stel curCell = ActiveCell < br

Set > pgmWord = CreateObject ( " Word.Application " ) op Twitter

DocName = InputBox ( " Voer Word documentnaam " ) op Twitter

DocName = InputBox ( " Voer Word documentnaam " )

Terwijl ( DocName < > " " )

TableId = InputBox
( "Enter tafel nummer " )

pgmWord.Documents.Open
( " c : \\ table . docx " ) op p Met pgmWord.ActiveDocument.Tables ( TableId )

StartRow = ActiveCell.Row

Bij c = 1 To . Columns.Count

voor r = 1 To . Rows.Count

curCell.Value
= . Cell ( r , c ) op Twitter

' naar volgende rij

Stel curCell = curCell.Offset ( 1 , 0 )

Volgende r

'
Ga naar volgende kolom

Stel curCell = Cells ( StartRow , curCell.Column + 1 ) op Twitter

Volgende c

Einde
met

pgmWord.ActiveDocument.Close

DocName = InputBox ( " Voer Word documentnaam " )

Wend

pgmWord
. Quit

End Sub
6

Klik op de " Excel " pictogram in de taakbalk van Windows terug te keren naar Excel en klik op de " macro's" -knop van het tabblad "Ontwikkelaar " . Dubbelklik op de " LoadWordTable " macro aan die macro uitvoeren .

Type 7 de naam van een Word- document met een tabel bij de prompt om dit te doen verschijnt . Typ het nummer van de tabel die u wilt bij de prompt voor die tafel verschijnt . Bijvoorbeeld , als u wilt dat de tweede tabel in het document , type " 2 . " Excel zal de tafel laden in de huidige spreadsheet .
8

Doorgaan laden Word tafels met het programma als dat nodig is. Druk op "Enter " op de " naam van het document " prompt om het programma te beëindigen .