Object Library . " Klik op "OK . "
4 Dubbelklik op het formulier om de " Form1_Load " procedure te creëren . Typ de volgende code om gegevens toe te voegen aan de data grid view controle : . .
Met DataGridView1
RowHeadersVisible = False
Columns ( 0 ) Name = " ExcelValue " < . br
End > Met
Dim groeien als String ( ) = { " 1 " }
Dim gRow2
As String ( ) = { " 2 " }
Met Me.DataGridView1.Rows
. toevoegen ( GROW ) op
. toevoegen ( gRow2 )
Einde
Met
Dubbelklik op " Button1 5 " een gebeurtenis click procedure voor de knop te maken . Typ de volgende code in de eerste regel van de module aan de Microsoft Office namespace importeren :
Imports
Microsoft.Office.Interop
6
Typ de volgende code hieronder " Button1_Click " te creëren de variabelen die worden gebruikt om Excel te openen :
Dim ExcelApp
als Nieuwe Excel.Application
Dim xCntr
As Integer = 1
ExcelApp.Visible = True
Dim ExcelWks Zoals Excel.Workbooks = ExcelApp.Workbooks
Dim ExcelWk
Zoals Excel.Workbook = ExcelWks.Add
Dim ExcelShts
Zoals Excel.Sheets = ExcelWk.Worksheets
Dim ExcelSht
als Excel.Worksheet = ExcelShts ( " Blad1 " )
7
Voeg de volgende code voor het doorlussen van de rijen en mobiele data toevoegen aan een nieuwe Excel-werkmap :
voor Elke rij Zoals DataGridViewRow in DataGridView1.Rows
ExcelSht.Range
( " A " & xCntr ) . Value = row.Cells.Item ( " ExcelValue " ) . Value
xCntr + = 1
volgende
8
Sla de werkmap door toevoeging van de volgende code :
ExcelSht.SaveAs
( " C : \\ ExcelFile.xlsx " )
9
Druk op " F5 " om het programma uit te voeren . Klik op " Button1 " om de gegevens naar Excel .
Voegen