Object Library . " Klicken Sie auf " OK".
4 Doppelklicken Sie auf Button1, um das Click-Ereignis für die Schaltfläche öffnen. Geben Sie folgenden Code in der ersten Zeile des Moduls , um die Microsoft Office -Namespace deklarieren:
Imports Microsoft.Office.Interop
5
Kopieren Sie den folgenden Code, um eine zu erstellen neue Excel-Arbeitsmappe , und fügen Sie die Werte der Textfelder zu dem Arbeitsblatt :
Dim As New xlApp Excel.Application
xlApp.Visible = True
Dim XLwks Wie Excel.Workbooks = XLapp.Workbooks
Dim XLwk Wie Excel.Workbook = XLwks.Add
Dim XLshts Wie Excel.Sheets = XLwk.Worksheets
Dim XLsht Wie Excel.Worksheet = XLshts ( " Tabelle1 " )
XLsht.Range ( "A1") . Value = Me.TextBox1.Text.ToString
XLsht.Range ( "A2" ) . Value = Me.TextBox2.Text . ToString
XLsht.SaveAs ( "C: \\ excelBk.xlsx " )
6
Presse "F5 ", um Ihr Programm und geben Sie den Text in das erste Textfeld . Geben Sie Text in das zweite Textfeld . Drücken Sie auf " Button1 ", um die Informationen in die Textfelder der Excel-Arbeitsmappe in C gespeichert passieren : . \\ ExcelBk.xlsx