Libreria oggetti di Microsoft Excel . " Fare clic su " OK ".
2 Digitare quanto segue per creare un nuovo sottoprogramma : " . Inserire"
importExcelData Private Sub ( ) per
Press
3
digitare quanto segue per creare le variabili :
Dim cartella di lavoro come cartella di lavoro
Dim dataInExcel As String
4
Digitare il seguente per aprire la cartella di lavoro di Excel :
Application.ScreenUpdating = False
Imposta cartella di lavoro = Workbooks.Open ( " C : \\ Book1.xls ", true , true)
Edit "C: \\ Book1.xls " e digitare il proprio percorso e il nome cartella di lavoro
5
digitare quanto segue per ottenere i dati "A1" nella cartella di lavoro e aggiungerlo al documento di Word : .
dataInExcel = Text : = dataInExcel
6
digitare quanto segue per ottenere i dati "A2" nella cartella di lavoro e aggiungerlo al documento di Word :
dataInExcel = Text : = dataInExcel
7
digitare quanto segue per chiudere la cartella di lavoro e variabili di rilascio da memoria :
workBook.Close False
cartella di lavoro = niente
Application.ScreenUpdating = True