Entrambe le applicazioni della suite di Microsoft Office Word ed Excel. Word è un'applicazione di elaborazione testi e un'applicazione di foglio di calcolo di Excel. Sapere come accedere a tabelle di Microsoft Word da Microsoft Excel può essere utile quando si lavora con tabelle di Word. Visual Basic for Applications (VBA) è un linguaggio di programmazione che è facile da imparare e da usare, e in pochi passi è possibile scrivere codice VBA per accedere a una tabella di Word da Excel.
Istruzioni
1
Avviare Microsoft Office Word, selezionare dal menu "Inserisci" e fare clic su "Tabella". Selezionare una tabella con due colonne e due righe.
Fare clic sulla cella in alto a sinistra e digitare "Colonna1", premere "Tab" per passare alla seconda colonna e digitare "Colonna2".
Fare clic sulla prima cella in numero di riga due e digitare "Datq1". Premere "Tab" per passare alla seconda colonna e digitare "Data2".
Salvare il documento in "C:\" come "myTableDoc.doc."
2
Avviare Microsoft Office Excel, selezionare la scheda "Sviluppo" quindi fare clic su "Visual Basic". Fare clic sul menu "Inserisci" e selezionare "Modulo".
Selezionare il menu "Strumenti" e scegliere "Riferimenti...". Seleziona la casella accanto a "Libreria di oggetti di Microsoft Word < numero versione >." Fare clic su "OK".
3
Digitare il comando seguente per creare la subroutine "getWordTableData":
Private Sub getWordTableData()
Premere "Enter".
4
Digitare il comando seguente per creare nuove variabili:
Dim clmnCnt As Integer
Dim rowCnt As Integer
5
Digitare il comando seguente per creare oggetti di Word:
Set wrdApp = CreateObject
Impostare wrdDoc = wrdApp.Documents.Open("C:\myTableDoc.doc")
6
Digitare quanto segue per scorrere la tabella in "myTableDoc.doc" e visualizzare il contenuto tramite una finestra di messaggio:
For clmnCnt = 1 To wrdDoc.Tables(1).Columns.Count
For rowCnt = 1 To wrdDoc.Tables(1).Rows.Count
MsgBox wrdDoc.Tables(1).Cell(rowCnt, clmnCnt).Range.Text
Next rowCnt
Next clmnCnt
7
Digitare il comando seguente per rilasciare la variabile dalla memoria:
Impostare wrdApp = Nothing
Impostare wrdDoc = Nothing
Premere "F5" per eseguire la subroutine.