Object Library. " Klikk "OK".
3 start etter følgende VBA -kode for å opprette en ny sub prosedyre : en
Private Sub createSpreadSheet ( )
4
Fortsett ved å skrive følgende kode for å opprette tre nye variable objekter som skal brukes til å opprette Excel- regneark :
Dim newExcelApp som Excel.Application
Dim newWbk som Excel.Workbook
Dim newWkSheet Som Excel.Worksheet
5
Legg til følgende kode for å starte Excel og vise det : en
Set newExcelApp = Excel.Application
newExcelApp.Visible = sant
6
Skriv inn følgende for å legge til en ny arbeidsbok og et regneark : en
Sett newWbk = newExcelApp.Workbooks.Add
Set newWkSheet = newWbk.Worksheets ( 1 )
7
Legge til data i det nye regnearket ved å skrive følgende : .
newWkSheet.Cells ( 1 , 1 ) Verdi = "Nytt regneark ... "
8
Lagre den nye arbeidsboken skapt ved å skrive følgende kode :
newWkSheet.SaveAs ( " C : \\ myworksheet.xlsx ")
9
Rediger banen på forrige trinn, og skriv inn banen og filnavnet ditt valg
10
skriv inn følgende for å avslutte delprosedyre : .
End sub
11
Trykk " F5 " for å kjøre prosedyren og opprette en ny Excel-regneark .