Excel non è possibile importare le tabelle di Word facilmente come si può altri dati . Un modo di ottenere tabelle di Word in Excel è quella di convertire prima i dati nelle tabelle di Word in valori separati da virgole , meglio conosciuto come CSV . Ma questo è un compito molto complesso . Un'altra soluzione è quella di utilizzare il linguaggio di programmazione di Excel , Visual Basic, Applications Edition , per leggere i dati di una tabella di Word e copiarlo in un foglio di calcolo di Excel . Usando questo approccio comporta l'uso degli oggetti virtuali di Word, compreso l'oggetto "Tabella" . Istruzioni
1

Utilizzare Esplora risorse per copiare un file di Word che contiene almeno una tabella nella cartella " C : \\". Rinominare il file come " table.docx . " Potrai scrivere un programma introduttivo che leggerà una cella della tabella da questo file .

2 Fare clic sulla scheda "Sviluppatore " , quindi fare clic sul pulsante " Visual Basic " per entrare nell'ambiente di programmazione Visual Basic . Incolla il seguente programma nella finestra del codice VB . Questo programma crea un collegamento a Word , che consente di eccellere utilizzare gli oggetti virtuali di Word come se il programma fosse in esecuzione all'interno di un documento Word. Questo processo è chiamato " Automazione ".

Public Sub LoadWordTablebak ( ) per

Dim pgmWord Come Word.Application

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

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

MsgBox pgmWord.ActiveDocument.Tables ( 1 ) cellulare ( 1 , 1 ) per

pgmWord.ActiveDocument . Chiudi

pgmWord.Quit

End Sub

3 Fare clic sul menu "Strumenti" , quindi fare clic sul comando "Riferimenti" . Scorrere la finestra che appare per individuare la voce "Microsoft Word " , quindi fare clic sulla casella di controllo per tale voce. Questa azione consente di Excel accedere agli oggetti visivi in ​​un documento Word .
4

Clicca alcuna dichiarazione nel programma , quindi fare clic su comando " Esegui" del menu " Run " . Il programma visualizza una finestra di messaggio che mostra il contenuto di una cella di una tabella in un documento di Word . Ora potrai espandere il programma di caricare in una tabella completa da qualsiasi documento di Word .
5

Incollare il seguente programma rivisto sotto l'istruzione " End Sub " del programma originale . Questo programma richiede all'utente il nome del file di un documento di Word . L' utente deve anche digitare il numero di una tabella all'interno del documento . Il programma utilizza il metodo di automazione del primo programma per caricare copiare la cella di tabella specificata dalla cella in un foglio Excel .

Public Sub LoadWordTable2 ( ) per

Dim docname Come
String < p > Dim TableID As Integer

Dim C, R , startRow As Integer Dim

curCell

Dim pgmWord Come Word.Application

curCell = ActiveCell < br

Set> pgmWord = CreateObject ( " Word.Application " ) per

docname = InputBox ( "Inserire il nome del documento Word " ) per

docname = InputBox ( "Inserire il nome del documento Word " )

Mentre ( docname < > " " ) per

TableID = InputBox ( " Inserire il numero di tavola " ) per

pgmWord.Documents.Open ( "c: \\ tavolo . docx " ) per

pgmWord.ActiveDocument.Tables ( TableID ) per

startRow = ActiveCell.Row

Per c = 1 To . Columns.Count

per r = 1 To . Rows.Count

curCell.Value = . cella ( r, c ) per

' Sposta alla riga successiva

curCell curCell.Offset = ( 1 , 0 ) per

Avanti r

' Sposta alla colonna successiva

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

Avanti c

End With

pgmWord.ActiveDocument.Close

docname = InputBox ( "Inserire il nome del documento Word " ) per

Wend

pgmWord . Quit

End Sub
6

clic sull'icona dell'applicazione "Excel" nella barra delle applicazioni di Windows per tornare a Excel , quindi fare clic sul pulsante " Macro " della scheda " sviluppatori" . Fare doppio clic sulla macro " LoadWordTable " per eseguire tale macro .
7

Digitare il nome di un documento di Word contenente una tabella in cui la richiesta di farlo appare . Digitare il numero della tabella che si desidera quando il prompt per quella tabella compare . Per esempio, se si desidera che la seconda tabella nel documento , di tipo " 2 ". Excel caricherà la tabella nel foglio di calcolo corrente.
8

continuare a caricare tabelle di Word con il programma in base alle esigenze . Premere "Enter" al " nome del documento " prompt per terminare il programma .