Nwlapcug.com


Come accedere a tabelle di Word utilizzando Excel VBA

Come accedere a tabelle di Word utilizzando Excel VBA


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 clmnCnt7

Digitare il comando seguente per rilasciare la variabile dalla memoria:

Impostare wrdApp = Nothing

Impostare wrdDoc = Nothing

Premere "F5" per eseguire la subroutine.