Bibliotek number> Object . " Klicka på " OK . "
4 Dubbelklicka på formuläret för att skapa den " Form1_Load " förfarande . Skriv följande kod för att lägga till data till data rutnät kontroll : . .
DataGridView1
RowHeadersVisible = False
Columns ( 0 ) name = " ExcelValue " < . br >
End With
Dim växa som String ( ) = { " 1 " }
Dim gRow2 As String ( ) = { " 2 " }
Me.DataGridView1.Rows
. Lägg ( växa ) katalog
. Lägg ( gRow2 ) katalog
End With
5
Dubbelklicka på " Button1 " för att skapa ett förfarande klickhändelsen för knappen . Skriv följande kod i den första raden av modulen för att importera Microsoft Office namespace :
Imports Microsoft.Office.Interop
6
Skriv följande kod under " Button1_Click " för att skapa de variabler som används för att öppna Excel :
Dim ExcelApp som ny Excel.Application
Dim xCntr As Integer = 1
ExcelApp.Visible = Sant
Dim ExcelWks Som Excel.Workbooks = ExcelApp.Workbooks
Dim ExcelWk Som Excel.Workbook = ExcelWks.Add
Dim ExcelShts Som Excel.Sheets = ExcelWk.Worksheets
Dim ExcelSht As Excel.Worksheet = ExcelShts ( " Blad1 " )
7
Lägg till följande kod i en slinga genom raderna och lägga cell data till en ny Excel- arbetsbok :
för varje rad som DataGridViewRow i DataGridView1.Rows
ExcelSht.Range ( " A " & xCntr ) . Value = row.Cells.Item ( " ExcelValue " ) . Value
xCntr + = 1
Nästa
8
Spara arbetsboken genom att lägga till följande kod :
ExcelSht.SaveAs ( " C : \\ ExcelFile.xlsx " )
9
Tryck " F5 " för att köra programmet . Klicka " Button1 " för att lägga till data till Excel .
