Die Möglichkeit, Daten in einer Microsoft Excel-Arbeitsmappe einfügen wird Ihr Visual Basic-Anwendung dynamischer. Oft werden Sie in die Notwendigkeit , um das Datum zu einer Arbeitsmappe einfügen , wenn Sie Daten von Ihrem VB-Anwendung exportieren laufen . In VB, können Sie die Microsoft Excel Object Library eine neue Excel- Arbeitsmappe zu erstellen und Einfügen von Daten in sie . Sie können mit dem " Now" -Funktion , um das Datum zu erhalten und legen Sie sie in Excel mithilfe der "Range" -Eigenschaft. Anleitung
1

Starten Sie Microsoft Visual Basic Express, klicken Sie auf " Neues Projekt" aus dem linken Bereich Ihres Bildschirms , klicken Sie dann auf "Windows Forms-Anwendung. " Klicken Sie auf " OK".
2

Doppelklicken Sie auf "Button" , um einen neuen Button hinzufügen. Doppelklicken Sie auf " Button1 ", um eine Click-Ereignis für diese Schaltfläche zu erstellen. Klicken Sie auf das Menü "Projekt" auf "Add Reference ", dann klicken Sie auf die "COM "-Registerkarte. Doppelklicken Sie auf " Microsoft Excel Object Library ", um sie als Referenz hinzufügen.
3

Kopieren Sie den folgenden Code, um die Excel-Objekt Variablen erstellen Sie zu bedienen erstellen Sie eine neue Excel-Arbeitsmappe :

Dim objXLS Als Anwendung = New Application

Dim objXLXBks als Arbeitsmappen = Nothing

Dim objXLSBk Wie Workbook = Nothing

Dim objXLSShts Wie Sheets = Nothing

Dim objXLSSht As Worksheet = Nothing

Dim objXLSrng As Range = Nothing
4

Geben Sie den folgenden Code, um eine neue Arbeitsmappe hinzu:

objXLS.Visible = False

objXLS.DisplayAlerts = False

objXLSBk = CType ( objXLS.Workbooks.Add () , Workbook )
5

Fügen Sie den folgenden Code, um ein neues Arbeitsblatt hinzuzufügen :

objXLXBks = objXLS.Workbooks

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

Insert das Datum auf " A1 " in Excel , indem Sie die folgende Codezeile :

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

Speichern Sie die Excel-Arbeitsmappe , indem Sie den folgenden Code:

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

eine Meldung angezeigt , wenn die Arbeitsmappe erstellt wurde und gespeichert.

MessageBox.Show ( "Date hat Excel wurde hinzugefügt" )

Drücken Sie F5 , um das Programm auszuführen , klicken Sie dann auf " Button1 . "