Hur infoga ett datum i Excel Visual Basic

Att kunna infoga data i en Microsoft Excel-arbetsbok kommer att göra din Visual Basic applikation mer dynamiskt . Ofta du stöter på behovet att infoga datum i en arbetsbok när du exporterar data från din VB ansökan . I VB , kan du använda Microsoft Excel Object Library för att skapa en ny Excel- arbetsbok och infoga data i den . Du kan använda " Nu " -funktionen för att få systemet datum och sätt den till Excel med hjälp av " Range " egendom . Instruktioner
1

Launch Microsoft Visual Basic Express , klicka på " Nytt projekt " från den vänstra rutan på skärmen , klicka sedan på " Windows Forms Application . " Klicka på " OK . "
2

Dubbelklicka på " knappen " för att lägga till en ny knapp . Dubbelklicka på " Button1 " för att skapa en click-händelse för denna knapp . Klicka på " Project " -menyn , klicka på " Add Reference ", klicka sedan på " COM "-fliken . Dubbelklicka på " Microsoft Excel Object Library " för att lägga till den som en referens .
3

Kopiera och klistra in följande kod för att skapa Excel- objekt variabler du använder för att skapa en ny Excel- arbetsbok :

Dim objXLS Som Application = Nya

Application
Dim objXLXBks Som arbetsböcker = Nothing

Dim objXLSBk Som arbetsbok = Nothing

Dim objXLSShts som ark = Nothing

Dim objXLSSht som Arbetsblad = Nothing

Dim objXLSrng som Range = Nothing
4

Skriv in följande kod för att lägga till en ny arbetsbok :

objXLS.Visible = false

objXLS.DisplayAlerts = False

objXLSBk = ctyp ( objXLS.Workbooks.Add ( ) , arbetsbok )
5

Lägg till följande kod för att lägga till ett nytt kalkylblad :

objXLXBks = objXLS.Workbooks

objXLSSht = ctyp ( . objXLXBks ( 1 ) Sheets.Item ( 1 ) , kalkylblad)

objXLSShts = objXLSBk.Worksheets
6

in datumet till " A1 " i Excel genom att lägga till följande kodrad :

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

Spara Excel-arbetsboken genom att skriva följande kod :

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

Visa ett meddelande när arbetsboken har skapats och sparats .

MessageBox.Show ( " Date har lagts till Excel " ) katalog

Tryck F5 för att köra programmet , klicka sedan på " Button1 . " Addera