Exporter les données de votre contrôle DataGridView à Microsoft Excel peuvent vous faire gagner du temps en éliminant les étapes lorsque vous devez copier les données vers Excel . Dans Visual Basic , vous pouvez utiliser la bibliothèque d'objets Microsoft Excel pour exporter des données à partir de votre application. Le contrôle DataGridView fournit une table personnalisable pour afficher des données . Le contrôle peut être rempli manuellement , ou vous pouvez afficher les données de bases de données et autres sources de données en utilisant la propriété " DataSource " . Instructions
1

Démarrez Microsoft Visual Basic Express. Cliquez sur "Nouveau projet ... " Dans le volet gauche de votre écran , puis sélectionnez " applications Windows Forms . " Cliquez sur " OK" pour créer un nouveau projet.
2

Double -cliquez sur " DataGridView " sur le volet «boîte à outils » pour ajouter le contrôle au formulaire . Ajouter un bouton en utilisant la même technique.
3

Cliquez sur le menu "Projet " et sélectionnez " Propriétés . " Cliquez sur " Références" puis sélectionnez "Ajouter". Sélectionnez « COM ». Cliquez sur " Microsoft Excel 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
< p > 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.