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
xCntr + = 1
< p > Avanti
8
Salvare la cartella di lavoro con l'aggiunta del seguente codice :
ExcelSht.SaveAs ( "C : \\ ExcelFile.xlsx " ) economici 9
premere il tasto " F5 " per eseguire il programma . Fare clic su " Button1 " per aggiungere i dati in Excel .
