Esportazione dati dal controllo DataGridView per Microsoft Excel consente di risparmiare tempo eliminando passaggi quando è necessario copiare i dati in Excel. In Visual Basic, è possibile utilizzare la libreria di oggetti di Microsoft Excel per esportare i dati dalla vostra applicazione. Il controllo DataGridView fornisce una tabella personalizzabile per la visualizzazione dei dati. Il controllo può essere popolato manualmente, oppure è possibile visualizzare i dati provenienti da banche dati e altre fonti di dati utilizzando la proprietà "DataSource".

istruzione

1 Avviare Microsoft Visual Basic Express. Fai clic su "Nuovo progetto ..." nel riquadro a sinistra dello schermo, quindi selezionare "Applicazione Windows Form." Fai clic su "OK" per creare un nuovo progetto.

2 Fare doppio clic su "DataGridView" nel riquadro "Toolbox" per aggiungere il controllo al form. Aggiungere un pulsante utilizzando la stessa tecnica.

3 Fare clic sul menu "Progetto" e selezionare "<nomeprogetto> Proprietà". Fai clic su "Riferimenti", quindi selezionare "Aggiungi". Selezionare "COM". Fare clic su "Microsoft Excel <numero di versione> libreria di oggetti." Fai clic su "OK".

4 Fare doppio clic sul form per creare la procedura "Form1_Load". Digitare il seguente codice per aggiungere dati al controllo dei dati visualizzazione a griglia:

con DataGridView1

.RowHeadersVisible = False

.COLONNE (0) .Name = "ExcelValue"

End With

Dim crescere come String () = { "1"}

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

con Me.DataGridView1.Rows

.Add (Crescere)

.Add (GRow2)

End With

5 Fare doppio clic su "Button1" per creare una procedura di evento Click per il pulsante. Digitare il seguente codice nella prima riga del modulo per importare lo spazio dei nomi di Microsoft Office:

Le importazioni Microsoft.Office.Interop

6 Digitare il seguente codice sotto "Button1_Click" per creare le variabili utilizzate per aprire Excel:

Dim ExcelApp come nuovo Excel.Application

Dim xCntr As Integer = 1

ExcelApp.Visible = True

ExcelWks fiochi come Excel.Workbooks = ExcelApp.Workbooks

Dim ExcelWk Come Excel.Workbook = ExcelWks.Add

ExcelShts fiochi come Excel.Sheets = ExcelWk.Worksheets

Dim ExcelSht Come Excel.Worksheet = ExcelShts ( "Sheet1")

7 Aggiungere il seguente codice per scorrere le righe e aggiungere dati delle celle a una nuova cartella di lavoro di Excel:

For Each row As DataGridViewRow In DataGridView1.Rows

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

xCntr + 1 =

Il prossimo

8 Salvare la cartella di lavoro aggiungendo il seguente codice:

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

9 Premere il tasto "F5" per eseguire il programma. Fai clic su "Button1" per aggiungere i dati in Excel.