Word ed Excel sono entrambe le applicazioni della suite Microsoft Office . Word è un programma di elaborazione testi e di Excel un foglio di calcolo . Saper accedere alle tabelle di Microsoft Word di 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 . Istruzioni
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 " .
< P > Fare clic sulla prima cella della riga numero due e digitare " Datq1 " . Premere il tasto " Tab " per passare alla seconda colonna e digitare " Dati2 "
salvare il documento in " C : \\ " . Come " . MyTableDoc.doc "
2
Start di Microsoft Office Excel , selezionare la scheda "Sviluppatore " poi su " Visual Basic ". Fare clic sul menu "Inserisci" e selezionare " Modulo ".
Seleziona il menu " Strumenti " e clicca su "Riferimenti ... " . Seleziona la casella accanto a " Libreria oggetti di Microsoft Word . " Fare clic su "OK".
3 digitare quanto segue per creare il " getWordTableData " subroutine :
Private Sub getWordTableData ( ) per
Premere " Enter . "
4
Digitare quanto segue per creare nuove variabili :
Dim clmnCnt As Integer Dim
rowCnt As Integer
5
Tipo quanto segue per creare oggetti di Word:
wrdApp = CreateObject ( " Word.Application " ) per
wrdDoc = wrdApp.Documents.Open ( " C : \\ myTableDoc.doc " ) < br > con 6
digitare quanto segue per scorrere la tabella in " myTableDoc.doc " e visualizzarne il contenuto in una finestra di messaggio : .
clmnCnt = 1 To wrdDoc.Tables ( 1 ) Colonne conte .
rowCnt = 1 To wrdDoc.Tables (1). Rows.Count
MsgBox wrdDoc.Tables (1). Cellulari ( rowCnt , clmnCnt ) .
Range.Text
Avanti rowCnt
Avanti clmnCnt
7
digitare quanto segue per rilasciare la variabile dalla memoria :
wrdApp = Nothing Set
wrdDoc = Nothing
Premere " F5 " per eseguire la subroutine .
