Word ed Excel sono entrambe le applicazioni della suite Microsoft Office. Word è un programma di elaborazione testi e Excel un foglio di calcolo. Saper accedere alle tabelle di Microsoft Word da Microsoft Excel può essere utile quando si lavora con tabelle di Word. Visual Basic, Applications Edition (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.

istruzione

1 Avviare Microsoft Office Word, selezionare il 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 "Column1", premere il tasto "Tab" per passare alla seconda colonna e digitare "Column2".

Fare clic sulla prima cella nella riga numero due e digitare "Datq1". Premere il tasto "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 "Sviluppatore" poi cliccare su "Visual Basic". Fare clic sul menu "Inserisci" e selezionare "Modulo".

Selezionare il menu "Strumenti" e fare clic su "Riferimenti ...". Seleziona la casella accanto a "Microsoft Word <numero di versione> Object Library". Fai clic su "OK".

3 Digitare quanto segue per creare la subroutine "getWordTableData":

Private Sub getWordTableData ()

Premere Invio."

4 Digitare la seguente per creare nuove variabili:

Dim clmnCnt As Integer

Dim rowCnt As Integer

5 Digitare la seguente per creare oggetti di Word:

Set wrdApp = CreateObject ( "Word.Application")

Set wrdDoc = wrdApp.Documents.Open ( "C: \ myTableDoc.doc")

6 Digitare quanto segue per scorrere la tabella in "myTableDoc.doc" e visualizzarne il contenuto attraverso una finestra di messaggio:

For clmnCnt = 1 To wrdDoc.Tables(1).Columns.Count

Per rowCnt = 1 Per wrdDoc.Tables (1) .Rows.Count

MsgBox wrdDoc.Tables (1) .Cell (rowCnt, clmnCnt) .Range.Text

Successivo rowCnt

Successivo clmnCnt

7 Digitare quanto segue per rilasciare la variabile dalla memoria:

Set wrdApp = Nothing

Set wrdDoc = Nothing

Premere il tasto "F5" per eseguire la subroutine.