Å kunne sette inn data i en Microsoft Excel-arbeidsbok vil gjøre din Visual Basic-programmet mer dynamisk . Ofte du kjøre inn behovet for å sette inn dato til en arbeidsbok når du eksporterer data fra din VB -programmet . I VB , kan du bruke Microsoft Excel Object Library for å opprette en ny Excel arbeidsbok og sette inn data i den. Du kan bruke " Now" funksjonen for å få systemet dato og sette det inn i Excel ved å bruke " Range " eiendom . Instruksjoner
en

Launch Microsoft Visual Basic Express , klikk " Nytt prosjekt " fra den venstre ruten på skjermen , og klikk "Windows Forms Application ". Klikk "OK".
2

Dobbeltklikk på " Button" for å legge til en ny knapp . Dobbeltklikk på " Button1 " for å skape et klikk hendelsen for denne knappen. Klikk på "Project "-menyen , klikk på " Add Reference ", klikk deretter på " COM "-kategorien . Dobbeltklikk på " Microsoft Excel Object Library " for å legge det til som en referanse .
3

Kopier og lim inn følgende kode for å opprette Excel- objekt variabler du vil bruke til å opprette en ny Excel arbeidsbok:

Dim objXLS Som Application = Nye Søknad

Dim objXLXBks Som arbeidsbøker = Ingenting

Dim objXLSBk Som arbeidsbok = Ingenting

Dim objXLSShts som ark = Ingenting

Dim objXLSSht Som regneark = Ingenting

Dim objXLSrng Som Range = Ingenting
4

Skriv inn følgende kode for å legge til en ny arbeidsbok:

objXLS.Visible = falske

objXLS.DisplayAlerts = False

objXLSBk = ctype ( objXLS.Workbooks.Add ( ) , arbeidsbok )
5

Legg til følgende kode for å legge til et nytt regneark :

objXLXBks = objXLS.Workbooks

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

Sett datoen til "A1" i Excel ved å legge til følgende kodelinje :

objXLSSht.Cells ( 1 , 1 ) = nå ( )
7

Lagre Excel -arbeidsbok ved å skrive følgende kode :

objXLSSht.SaveAs ( "C : \\ ExcelDate.xlsx ")
8

Vis en meldingsboks når arbeidsboken er opprettet og lagret .

MessageBox.Show ( "Date er lagt til Excel ")

Trykk F5 for å kjøre programmet , og klikk på « Button1 ».