Come scrivere una macro in Word per leggere i dati di Excel

Passaggio 1

Apri Excel e inserisci un valore nella prima cella del primo foglio di lavoro. Fare clic sul pulsante di comando Office "Salva" e digitare "c: \ ReadFromExcel.xlsx" per il nome del file. Fai clic su "Salva" per salvare il libro e chiudere Excel.

Passaggio 2

Fare clic sul pulsante Office in Word e quindi sul pulsante "Opzioni". Fare clic sulla casella di controllo "Sviluppatore" per visualizzare questa scheda che contiene i comandi macro di Word.

Passaggio 3

Fare clic sulla scheda "Sviluppatore" di "Visual Basic" per accedere all'ambiente di sviluppo.

Passaggio 4

Fare clic sul menu "Strumenti", quindi sul comando "Riferimenti". Fare clic sulla voce "Oggetti Microsoft Excel", che consente alla macro di accedere agli oggetti virtuali di Excel.

Passaggio 5

Scrivi il seguente programma nella finestra del codice. Questo programma creerà un collegamento all'applicazione Excel, quindi lo chiuderà. Il programma non fa ancora nulla con il collegamento stabilito. Ora usiamo il link per aprire la cartella di lavoro di Excel che hai creato nel passaggio 1.

Public Sub ReadExcelData () Dim pgmExcel As Excel.Application Set pgmExcel = CreateObject ("Excel.Application") pgmExcel.Quit End Sub

Passaggio 6

Scrivi le seguenti nuove affermazioni dopo "Imposta". Queste istruzioni aprono la cartella di lavoro di Excel creata al passaggio 1 e la chiudono. Il programma modificato non ha ancora letto alcuna informazione dal libro. La seguente dichiarazione che scriverai leggerà le informazioni nel libro.

PgmExcel.Workbooks.Open "c: \ ReadFromExcel.xlsx"

Passaggio 7

Scrivi le seguenti affermazioni dopo "Apri". Questa istruzione utilizza l'oggetto pgmExcel per leggere il valore della prima cella nella cartella di lavoro del passaggio 1. Il comando "MsgBox" mostra quel valore.

MsgBox pgmExcel.ActiveWorkbook.Sheets (1) .Cells (1, 1)

Passaggio 8

Fai clic su uno degli stati del programma e sul comando "Esegui" di quel menu. "Il programma verrà eseguito e visualizzerà il valore della cella in cui hai scritto nel Passaggio 1.