Object Library . " Klik op "OK . "
Type 2 het volgende om een nieuwe subroutine maken: " . Enter"
Private Sub importExcelData
( )
Pers
< br >
Type 3 het volgende om uw variabelen te maken:
Dim werkboek
als Werkboek
Dim dataInExcel
als Koord
Type 4 de volgende
Application.ScreenUpdating = False
Set werkboek
= Workbooks.Open ( " C : : \\ Book1.xls " , True , True )
Bewerken
om uw Excel-werkmap openen " C : \\ Book1.xls ' en typ uw eigen pad en de naam van de werkmap
5
typ het volgende op " A1 " gegevens in uw werkmap te krijgen en deze toevoegen aan uw Word-document : .
dataInExcel = Tekst : = dataInExcel
Type 6 de volgende aan " A2 " gegevens in uw werkmap te krijgen en deze toevoegen aan uw Word-document :
dataInExcel
= Tekst : = dataInExcel
Type 7 de volgende om uw werkmap en het vrijkomen variabelen sluiten van het geheugen :
workBook.Close False
Set werkboek
= Nothing
Application.ScreenUpdating = True