At være i stand til at indsætte data i en Microsoft Excel-projektmappe vil gøre din Visual Basic-program mere dynamisk. Ofte vil du løbe ind i behovet for at indsætte datoen til en projektmappe , når du eksporterer data fra din VB program. I VB, kan du bruge Microsoft Excel Object Library til at oprette en ny Excel-projektmappe og indsætte data i den. Du kan bruge "Nu "-funktionen til at få systemet dato og indsætte det i Excel ved hjælp af " Range " ejendom . Instruktioner
1

Launch Microsoft Visual Basic Express , klik på " Nyt projekt " fra venstre rude på din computerskærm , og klik derefter på "Windows Forms Application ". Klik på "OK".
2

Dobbeltklik på " Button " for at tilføje en ny knap . Dobbeltklik på " Button1 " for at oprette et klik begivenhed for denne knap. Klik på " Projekt "-menuen , klik på " Tilføj Reference" klik derefter på " COM" fanebladet . Dobbeltklik på " Microsoft Excel Object Library " for at tilføje det som en reference.
3

Kopier og indsæt følgende kode til at oprette Excel objektvariabler du vil bruge til opretter et nyt Excel-projektmappe :

Dim objXLS Som Application = ny ansøgning

Dim objXLXBks Som Workbooks = Nothing

Dim objXLSBk Som projektmappe = Nothing

Dim objXLSShts Som Sheets = Nothing

Dim objXLSSht Som Regneark = Nothing

Dim objXLSrng Som Range = Nothing
4

Indtast følgende kode til at tilføje en ny projektmappe : < br >

objXLS.Visible = Falsk

objXLS.DisplayAlerts = False

objXLSBk = ctype ( objXLS.Workbooks.Add () , Workbook )
5 < p > Føj følgende kode til at tilføje et nyt regneark :

objXLXBks = objXLS.Workbooks

objXLSSht = ctype ( . objXLXBks (1) Sheets.Item (1) , arbejdspapir )
< p> objXLSShts = objXLSBk.Worksheets
6

Indsæt datoen til " A1" i Excel ved at tilføje følgende linje kode :

objXLSSht.Cells (1, 1) = Now ()
7

Gem Excel -projektmappe ved at skrive følgende kode : Hej

objXLSSht.SaveAs ( "C: \\ ExcelDate.xlsx " )
8 < p > Vise en besked boks , når projektmappen er blevet oprettet og gemt .

MessageBox.Show ( "Date er blevet tilføjet til Excel " )

Tryk F5 for at køre dit program og klik på " Button1 . "