Come scrivere una macro in Word che legge i dati da Excel

August 7

Saper scrivere una macro di Word che legge i dati da Excel introduce un approccio per il controllo di una applicazione di Office con un altro. Microsoft chiama questo tipo di controllo "Automation". Automazione lascia uno dei programmi di Office come Word, Excel, Access e PowerPoint, stabilire un collegamento, quindi utilizzare gli oggetti virtuali di un'altra applicazione di Office. Per scrivere una macro di Word che legge i dati da Excel, utilizzare l'istruzione "CreateObject" di Visual Basic per creare un collegamento a Excel. Quindi utilizzare che puntano a leggere i dati da un oggetto "Cell" di Excel.

istruzione

1 Aprire Excel, quindi digitare qualsiasi valore nella prima cella del primo foglio di calcolo. Fai clic su comando "Salva" del pulsante Office, quindi digitare "C: \ ReadFromExcel.xlsx" per il nome del file. Fai clic su "Salva" per salvare la cartella di lavoro, quindi chiudere Excel.

2 Fare clic sul pulsante Office in Word, quindi fare clic sul pulsante "Opzioni". Fare clic sulla casella "Sviluppatore" per visualizzare la scheda "Sviluppatore", che contiene comandi macro di Word.

3 Fare clic sul pulsante della scheda "Sviluppatore" "Visual Basic" per entrare l'ambiente di sviluppo di Visual Basic.

4 Fai clic sul menu "Strumenti", quindi fare clic sul comando "Riferimenti". Fare clic sulla voce "Oggetti di Microsoft Excel", che consente l'accesso macro gli oggetti virtuali di Excel.

5 Digitare il seguente programma nella finestra del codice. Questo programma crea un collegamento per l'applicazione Excel, quindi chiudere il collegamento. Il programma non ha ancora fatto nulla con il collegamento stabilito. Potrai ora possibile utilizzare il collegamento per aprire la cartella di lavoro di Excel creato nel passaggio 1.

Public Sub ReadExcelData ()

Dim pgmExcel Come Excel.Application

Set pgmExcel = CreateObject ( "Excel.Application")

pgmExcel.Quit

End Sub

6 Digitare le seguenti nuove dichiarazioni dopo l'istruzione "Set". Queste dichiarazioni aprire la cartella di lavoro di Excel creato nel passaggio 1, quindi chiudere la cartella di lavoro. Il programma riveduto non è ancora legge le informazioni dalla cartella di lavoro. L'istruzione successiva bisogna scrivere leggerà le informazioni dalla cartella di lavoro.

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

7 Digitare le seguenti dichiarazioni dopo la dichiarazione "Apri". Questa affermazione utilizza l'oggetto pgmExcel per leggere il valore della prima cella del lavoro dal punto 1. Il "MsgBox" dichiarazione visualizza tale valore.

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

8 Fare clic su una delle dichiarazioni del programma, quindi fare clic sul comando "Esegui" del menu "Run". Il vostro programma verrà eseguito e visualizzare il valore della cella in cui digitato nel passaggio 1.