Object Library . " Klicken Sie auf " OK".
4 Doppelklicken Sie auf das Formular, um den " Form1_Load "-Verfahren zu erstellen. Geben Sie den folgenden Code, um Daten an den Grid -Steuerelement hinzu: . .
DataGridView1
RowHeadersVisible = False
Columns (0) Name = " ExcelValue " < . br>
End With
Dim As String () = {" 1 "}
Dim gRow2 As String () = {" 2 "}
wachsen Me.DataGridView1.Rows
. hinzufügen ( wachsen )
. hinzufügen ( gRow2 )
End With
5
Doppelklicken Sie auf " Button1 ", um eine Click-Ereignisprozedur für die Schaltfläche. Geben Sie folgenden Code in der ersten Zeile des Moduls , um die Microsoft Office -Namespace zu importieren :
Imports Microsoft.Office.Interop
6
Geben Sie den Code unten " Button1 " zu schaffen die Variablen verwendet, um Excel zu öffnen:
Dim As New excelApp Excel.Application
Dim xCntr As Integer = 1
ExcelApp.Visible = True
Dim ExcelWks Wie Excel.Workbooks = ExcelApp.Workbooks
Dim ExcelWk Wie Excel.Workbook = ExcelWks.Add
Dim ExcelShts Wie Excel.Sheets = ExcelWk.Worksheets
Dim ExcelSht Wie Excel.Worksheet = ExcelShts ( " Tabelle1 " )
7
Fügen Sie den folgenden Code in einer Schleife durch die Reihen und fügen Zelle Daten in eine neue Excel-Arbeitsmappe :
für jede Zeile Wie DataGridViewRow In DataGridView1.Rows
ExcelSht.Range ("A" & xCntr ) . Value = row.Cells.Item ( " ExcelValue " ) . Wert
xCntr + = 1
< p > Weiter
8
Speichern Sie die Arbeitsmappe , indem Sie den folgenden Code:
ExcelSht.SaveAs ( "C: \\ ExcelFile.xlsx " )
9
Drücken Sie auf " F5 ", um das Programm auszuführen. Klicken Sie auf " Button1 " , um die Daten nach Excel.
Hinzufügen
