4 Double- cliquez sur le formulaire pour créer la procédure " Form1_Load " . Tapez le code suivant pour ajouter des données à la grille de données de contrôle de la vue : . .
DataGridView1
RowHeadersVisible = False
Colonnes ( 0) name = " ExcelValue " < . br>
End With
Dim croître As String ( ) = { "1" }
gRow2 As String () = { "2"}
Me.DataGridView1.Rows
. Ajouter ( croître )
. Ajouter ( gRow2 )
End With
5
Double -cliquez sur " Button1 "pour créer une procédure d'événement click pour le bouton . Tapez le code suivant dans la première ligne du module d'importer le namespace Microsoft Office : Photos
importations Microsoft.Office.Interop
6
Tapez le code suivant sous " Button1_Click " pour créer les variables utilisées pour ouvrir Excel :
Dim excelApp As New Excel.Application
xCntr As Integer = 1
ExcelApp.Visible = True
Dim ExcelWks Comme Excel.Workbooks = ExcelApp.Workbooks
ExcelWk As Excel.Workbook = ExcelWks.Add
ExcelShts As Excel.Sheets = ExcelWk.Worksheets
ExcelSht As Excel.Worksheet = ExcelShts ( "Sheet1" )
7
Ajoutez le code suivant pour parcourir les lignes et ajouter des données cellulaires pour un nouveau classeur Excel :
Pour chaque ligne comme DataGridViewRow en DataGridView1.Rows
ExcelSht.Range ("A" & xCntr ) . Value = row.Cells.Item ( " ExcelValue " ) . Value
xCntr + = 1
Suivant
8
enregistrer le classeur en ajoutant le code suivant :
ExcelSht.SaveAs ("C: \\ ExcelFile.xlsx " )
9
Appuyez sur "F5" pour exécuter le programme . Cliquez sur " Button1" pour ajouter les données au format Excel.
