Nwlapcug.com


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

Saper scrivere una macro di Word che legge i dati da Excel introduce un metodo per il controllo di un'applicazione di Office con un altro. Microsoft chiama questo tipo di controllo "Automazione". Automazione consente uno qualsiasi dei programmi di Office, ad esempio 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, è possibile utilizzare l'istruzione di "CreateObject" di Visual Basic per creare un collegamento a Excel. Quindi utilizzare questo link per leggere i dati dall'oggetto della "Cella" di Excel.

Istruzioni

1

Aprire Excel, quindi digitare un valore nella prima cella del primo foglio di calcolo. Fare clic sul comando "Salva" del pulsante Office, quindi 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 "Developer" per visualizzare la scheda "Sviluppo", che contiene i comandi di macro di Word.

3

Scegliere della scheda "Sviluppo" "Visual Basic" per entrare nell'ambiente di sviluppo Visual Basic.

4

Fare clic sul menu "Strumenti", quindi scegliere il comando di "Riferimenti". Fare clic sull'elemento "Oggetti di Microsoft Excel", che consente l'accesso di macro degli oggetti virtuali di Excel.

5

Digitare il seguente programma nella finestra del codice. Questo programma crea un collegamento all'applicazione di Excel, quindi chiudere il collegamento. Il programma non fa ancora nulla con il collegamento stabilito. Si utilizzerà ora il link per aprire la cartella di lavoro di Excel creato nel passaggio 1.

Public Sub ReadExcelData()

Dim pgmExcel As Excel. Application

Impostare pgmExcel = New

pgmExcel.Quit

End Sub

6

Digitare le seguenti nuove istruzioni 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 leggere tutte le informazioni dalla cartella di lavoro. L'istruzione successiva che potrai scrivere legge le informazioni dalla cartella di lavoro.

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

7

Digitare le seguenti istruzioni dopo l'istruzione "Open". Questa istruzione utilizza l'oggetto pgmExcel per leggere il valore della prima cella nella cartella di lavoro dal passaggio 1. L'istruzione "MsgBox" Visualizza tale valore.

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

8

Le istruzioni del programma, scegliere il comando "Esegui" del menu "Esegui". Il programma verrà eseguito e visualizzare il valore della cella in cui è stato digitato nel passaggio 1.