Object Library . " Klicken Sie auf " OK".
4 Geben Sie den folgenden Code in der ersten Zeile des Moduls , um die Microsoft Office -Namespace zu importieren :
Imports Microsoft.Office.Interop
5
Fügen Sie folgenden Code in der Schaltfläche Click-Ereignis , um eine neue Excel-Tabelle erstellen :
Dim As New xlsxA Excel.Application
xlsxA.Visible = True
< p> Dim xlsxWks Wie Excel.Workbooks = xlsxA.Workbooks
Dim xlsxWk Wie Excel.Workbook = xlsxWks.Add
Dim xlsxShts Wie Excel.Sheets = xlsxWk.Worksheets
Dim xlsxSht Wie Excel.Worksheet = xlsxShts ( " Tabelle1 " )
6
Fügen Sie mehrere Zeilen in der Tabelle , indem Sie den folgenden Code:
xlsxSht.Range ( "A1") . Value = " Zeile 1 mit Daten "
xlsxSht.Range ( "A2" ) . Value = " Row 2 mit Daten "
xlsxSht.Range ( "A3" ) . Value = " Row 3 mit Daten "
7
Speichern Sie die Tabelle :
xlsxSht.SaveAs (" C : \\ Temp \\ ExcelFile.xlsx " )
8
Press "F5" , um das Programm und klicken Sie auf " Button1. "