Slik kopierer Cell Tekst fra Datagridview til Excel

February 2

Eksportere data fra Datagridview kontroll til Microsoft Excel kan du spare tid ved å eliminere skritt når du trenger å kopiere data til Excel. I Visual Basic, kan du bruke Microsoft Excel objektbiblioteket for å eksportere data fra programmet. Den 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.

Bruksanvisning

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

2 Dobbeltklikk på "Datagridview" på "Toolbox" panelet for å legge kontrollen til skjemaet. Legg til en knapp ved hjelp av samme teknikk.

3 Klikk på "Project" -menyen og velg "<prosjektnavn> Egenskaper." Klikk på "Referanser" og velg deretter "Legg til". Velg "COM". Klikk på "Microsoft Excel <versjonsnummer> Object Library." Klikk på "OK".

4 Dobbeltklikk skjemaet for å skape "Form1_Load" prosedyre. Skriv inn følgende kode for å legge data til datarutenettvisning kontroll:

med DataGridView1

.RowHeadersVisible = False

.Columns (0) .name = "ExcelValue"

End With

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

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

med Me.DataGridView1.Rows

.Legg (Vokse)

.Legg (GRow2)

End With

5 Dobbeltklikk på "Button1" for å lage et klikk hendelsesprosedyren for knappen. Skriv inn følgende kode i den første linjen av modulen for å importere Microsoft Office navnerom:

importen Microsoft.Office.Interop

6 Skriv inn følgende kode under "button1_click" for å lage de variablene som brukes til å åpne Excel:

Dim ExcelApp som ny Excel.Application

Dim xCntr As Integer = 1

ExcelApp.Visible = True

Dim ExcelWks Som Excel.Workbooks = ExcelApp.Workbooks

Dim ExcelWk Som Excel.Workbook = ExcelWks.Add

Dim ExcelShts Som Excel.Sheets = ExcelWk.Worksheets

Dim ExcelSht Som Excel.Worksheet = ExcelShts ( "Ark1")

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

For Each row As DataGridViewRow In DataGridView1.Rows

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

xCntr + = 1

neste

8 Lagre arbeidsboken ved å legge til følgende kode:

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

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