Come copiare Testo della cella da DataGridView in Excel

Esportazione di dati dal vostro controllo DataGridView di Microsoft Excel è possibile 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 compilato manualmente , oppure è possibile visualizzare i dati da database e altre origini dati utilizzando la proprietà " DataSource " . Istruzioni
1

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

2 Fare doppio clic su " DataGridView " nel riquadro " Casella degli strumenti " per aggiungere il controllo al form . Aggiungere un pulsante con la stessa tecnica .

3 Fare clic sul menu "Progetto" e selezionare "Proprietà . " Clicca "Riferimenti ", quindi selezionare " Aggiungi ". Selezionare " COM ". Fare clic su " Libreria oggetti di Microsoft Excel . " Fare clic su " OK ".
4

Fare doppio clic sul form per creare la procedura " Form1_Load " . Digitare il seguente codice per aggiungere dati alla griglia di dati di controllo vista : . .

DataGridView1

RowHeadersVisible = False

Colonne ( 0 ) Name = " ExcelValue " < . br

End > Con

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

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

Me.DataGridView1.Rows

. Aggiungi ( crescere ) per

. Aggiungi ( gRow2 ) per

End With
5

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

Importazioni Microsoft.Office.Interop
6

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

Dim ExcelApp As New Excel.Application

Dim xCntr As Integer = 1

ExcelApp.Visible = True

Dim ExcelWks Come Excel.Workbooks = ExcelApp.Workbooks

Dim ExcelWk Come Excel.Workbook = ExcelWks.Add

Dim ExcelShts Come Excel.Sheets = ExcelWk.Worksheets

Dim ExcelSht As Excel.Worksheet = ExcelShts ( " Foglio1 " ) economici 7

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

per ogni riga Come DataGridViewRow in DataGridView1.Rows

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