Object Library " om het als een verwijzing toe te voegen .
Kopieer 3 en plak de volgende code om de Excel- object-variabelen maken je zal gebruiken om maak een nieuwe Excel-werkmap :
Dim objXLS
Als Application = nieuw Application
Dim objXLXBks
Zoals werkmappen = Nothing
Dim objXLSBk
als Werkboek = Nothing
Dim objXLSShts Zoals Sheets = Nothing
Dim objXLSSht
als Aantekenvel = Nothing
Dim objXLSrng
als Range = Nothing
Type 4 de volgende code om een nieuwe werkmap toe te voegen : < br >
objXLS.Visible = False
objXLS.DisplayAlerts
= False
objXLSBk = C ( objXLS.Workbooks.Add ( ) , Werkboek )
5
Voeg de volgende code om een nieuw werkblad toe te voegen :
objXLXBks
= objXLS.Workbooks
objXLSSht = C ( . objXLXBks ( 1 ) Sheets.Item ( 1 ) , werkblad ) op Twitter
objXLSShts = objXLSBk.Worksheets
6
Insert de datum " A1 " in Excel door het toevoegen van de volgende regel code :
objXLSSht.Cells
( 1 , 1 ) = Now ( )
7
Sla het Excel-werkmap door de volgende code :
objXLSSht.SaveAs
( " C : \\ ExcelDate.xlsx " )
8
Laat een bericht wanneer de werkmap is gemaakt en opgeslagen .
MessageBox.Show
( " Datum is toegevoegd aan Excel " )
Druk op F5
om uw programma uit te voeren , en klik op ' Button1 . "