Eksport av data fra din DataGridView kontroll til Microsoft Excel kan du spare tid ved å eliminere trinn når du skal kopiere data til Excel. I Visual Basic , kan du bruke Microsoft Excel Object Library å eksportere data fra programmet. DataGridView kontroll gir en passelig tabell for visning av data . Kontrollen kan fylles manuelt , eller du kan vise data fra databaser og andre datakilder ved å bruke " DataSource " eiendom . Instruksjoner
en

start Microsoft Visual Basic Express . Klikk "New Project ... " på ruten til venstre på skjermen , og deretter velge " Windows Forms Application ". Klikk " OK " for å opprette et nytt prosjekt .
2

Dobbeltklikk på " DataGridView " på " Toolbox" -ruten for å legge kontrollen til skjemaet. Legg til en knapp med samme teknikk .
3

Klikk på "Project "-menyen og velg " Properties". Klikk på " Referanser ", velg deretter "Legg til ". Velg " COM ". Klikk på " Microsoft Excel Object Library. " Klikk "OK".
4

Dobbeltklikk skjemaet for å lage " Form1_Load " prosedyre . Skriv inn følgende kode for å legge data til data grid view kontroll: . .
P Med DataGridView1

RowHeadersVisible = False

Søyler ( 0 ) Name = " ExcelValue " < . br >

End With

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

Dim gRow2 As String ( ) = { " 2 "}
p Med Me.DataGridView1.Rows

. Legg til ( vokse )

. Legg til ( gRow2 )

End With
5

Dobbeltklikk på " Button1 " å skape en klikkhendelsen prosedyre for knappen . Skriv inn følgende kode i den første linjen av modulen for å importere Microsoft Office namespace :

Importen Microsoft.Office.Interop
6

Skriv inn følgende kode under " button1_click " for å lage variablene som brukes til å åpne 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 ( " Ark1 ")
7

Legg til følgende kode i sløyfe gjennom radene og legge celle data til en ny Excel arbeidsbok : en

for hver rad som DataGridViewRow i DataGridView1.Rows

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

xCntr + = 1
< p > Neste
8

Lagre arbeidsboken ved å legge følgende kode:

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

Trykk "F5 " for å kjøre programmet . Klikk " Button1 " for å legge data til Excel.