Sapere come scrivere una macro di Word che legge i dati da Excel introduce a un approccio per il controllo di una applicazione di Office con un altro . Microsoft chiama questo tipo di controllo " Automazione ". Automazione lascia uno dei programmi di Office come Word , Excel , Access e PowerPoint , stabilire un collegamento a , 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 quel link per leggere i dati da oggetto " cella" di Excel . Istruzioni
1
Aprire Excel , quindi digitare un valore nella prima cella del primo foglio di calcolo. Fare clic su comando " Salva" del pulsante di Office, digitare "c : \\ ReadFromExcel.xlsx " per il nome del file . Fare 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 di controllo " Developer " per visualizzare la scheda " Sviluppo " , che contiene comandi macro di Word .
3
Fare clic sul pulsante " Visual Basic " del tab " Sviluppo " per entrare allo sviluppo di Visual Basic ambiente .
4
Fare clic sul menu "Strumenti" , quindi fare clic sul comando "Riferimenti" . Fare clic sulla voce "Microsoft Excel oggetti ", che consente la macro accedere agli oggetti virtuali di Excel.
5
Digitare il seguente programma nella finestra del codice . Questo programma crea un link per l'applicazione Excel , quindi chiudere il collegamento . Il programma non ha ancora fatto nulla con il legame stabilito . È ora verrà utilizzato il collegamento per aprire la cartella di lavoro di Excel creato nel passaggio 1 .
Public Sub ReadExcelData ( ) per
Dim pgmExcel Come Excel.Application
pgmExcel = CreateObject ( " Excel.Application " ) per
pgmExcel.Quit
End Sub
6
Tipo le seguenti nuove dichiarazioni dopo l'istruzione "Set" . Queste dichiarazioni aprono la cartella di lavoro di Excel creato nel passaggio 1 , quindi chiudere la cartella di lavoro . Il programma di revisione non è ancora legge le informazioni dalla cartella di lavoro . La successiva dichiarazione che scriverete sarà leggere le informazioni dalla cartella di lavoro
PgmExcel.Workbooks.Open "c : \\ ReadFromExcel.xlsx " .
7
Tipo le seguenti dichiarazioni dopo la " aprire " dichiarazione. Questa istruzione utilizza l'oggetto pgmExcel per leggere il valore della prima cella nella cartella di lavoro dal punto 1. L'affermazione " MsgBox " visualizza tale valore.
MsgBox pgmExcel.ActiveWorkbook.Sheets ( 1 ) . Cells ( 1 , 1 ) economici 8
Clicca su uno dichiarazioni del programma , quindi fare clic su il comando " Esegui " del menu "Run" . Il vostro programma verrà eseguito e visualizzare il valore della cella in cui si è digitato nel passaggio 1 .