Eksport af data fra din DataGridView kontrollen til Microsoft Excel kan du spare tid ved at eliminere trin, når du har brug for at kopiere data til Excel. I Visual Basic , kan du bruge Microsoft Excel Object Library til at eksportere data fra din ansøgning. DataGridView kontrol giver en tilpasselig bord til visning af data . Kontrollen kan befolket manuelt, eller du kan vise data fra databaser og andre datakilder ved at bruge " DataSource " ejendom . Instruktioner
1

Start Microsoft Visual Basic Express. Klik på " Nyt projekt ... " på den venstre rude på skærmen , og vælg derefter "Windows Forms Application ". Klik på "OK " for at oprette et nyt projekt.
2

Dobbeltklik på " DataGridView " på " Toolbox" ruden for at tilføje kontrol til Form . Tilføj en knap ved hjælp af samme teknik.
3

Klik på " Projekt "-menuen og vælg " Egenskaber". Klik på "Referencer" og derefter vælge " Tilføj". Vælg " COM ". Klik på " Microsoft Excel Object Library". Klik på "OK".
4

Dobbeltklik på formularen for at skabe den " Form1_Load " procedure. Indtast følgende kode til at tilføje data til data grid view kontrol : . .

DataGridView1

RowHeadersVisible = False

Kolonner ( 0) Name = " ExcelValue " < . br >

End With

Dim vokse som String () = { "1" }

Dim gRow2 As String () = {" 2" }

Me.DataGridView1.Rows

. Tilføj ( Grow )

. Tilføj ( gRow2 )

End With
5

Dobbeltklik på " Button1 "for at oprette et klik begivenhed procedure for knappen. Indtast følgende kode i den første linje i modulet for at importere Microsoft Office Navnerum:

Import Microsoft.Office.Interop
6

Indtast følgende kode nedenfor " Button1_Click " for at skabe de variabler, der anvendes til at åbne Excel :

Dim ExcelApp Som New Excel.Application

Dim xCntr As Integer = 1

ExcelApp.Visible = Sand

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 ( " Ark1 " )
7

Føj følgende kode til at sløjfe gennem rækkerne , og tilføj celle data til en ny Excel-projektmappe : Hej

Hver række Som DataGridViewRow i DataGridView1.Rows

ExcelSht.Range ("A " & xCntr ) . Value = row.Cells.Item ( " ExcelValue "). Value

xCntr + = 1
< p > Næste
8

Gem projektmappen ved at tilføje følgende kode : Hej

ExcelSht.SaveAs ( "C: \\ ExcelFile.xlsx " )
9

Tryk på " F5 " for at køre programmet. Klik på " Button1 " for at tilføje data til Excel.