Object Library . " Klik op "OK . "
Start 3 per type de volgende VBA- code naar een nieuwe sub procedure te creëren :
Private Sub createSpreadSheet
( )
4
verder door de volgende code om drie nieuwe variabele objecten die zal worden gebruikt om de Excel- spreadsheet te creëren :
Dim newExcelApp
Zoals Excel.Application
Dim newWbk
Zoals Excel.Workbook < br
Dim newWkSheet Zoals Excel.Worksheet
5
> Voeg de volgende code om Excel te starten en weer te geven :
Set newExcelApp
= Excel.Application
newExcelApp.Visible = True
Type 6 de volgende opties om een nieuwe werkmap en een werkblad toe te voegen :
Stel newWbk = newExcelApp.Workbooks.Add
Set newWkSheet = newWbk.Worksheets ( 1 )
7
gegevens toevoegen aan uw nieuwe spreadsheet door het volgende te typen : .
newWkSheet.Cells
( 1 , 1 ) Value = " nieuw werkblad ... "
8
Sla de nieuwe werkmap gemaakt door de volgende code :
newWkSheet.SaveAs
( " C : \\ myworksheet.xlsx " )
9
Bewerk het pad op de vorige stap en typ het pad en de bestandsnaam van uw keuze
Type 10 het volgende op de sub procedure te beëindigen : .
End sub
< br > 11
Druk op " F5 " om uw procedure lopen en maak een nieuwe Excel-spreadsheet .