| 12
 3
 4
 5
 6
 7
 8
 9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 
 | '---------------------------------------------------------------------- 
Imports Microsoft.Office.Interop.Excel 
Imports System.MissingMemberException 
Private Sub Vers_Excel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Vers_Excel.Click 
Dim c, l As Integer 
Dim xl As New Microsoft.Office.Interop.Excel.Application 
' Pour info: mon Datagridview se nomme "result". 
xl.Visible = True 
xl.Workbooks.Add() 
xl.Cells.Columns(1).ColumnWidth = 10 'je fixe la largeur de la 1ere colonne 
For c = 0 To result.Columns.Count - 1 
' j'affiche sur la 1ere ligne, les noms des colonnes du Datagridview 
xl.Cells(1, c + 1) = result.Columns(c).HeaderText 
Next 
' je remplis les cellules du fichiers excel avec les valeurs de result: 
For l = 0 To result.Rows.Count - 1 
   For c = 0 To result.Columns.Count - 1 
   ' je fixe la largeur des colonnes: 
        xl.Cells.Columns(c + 2).ColumnWidth = 21 
        xl.Cells(l + 2, c + 1) = result.Rows(l).Cells(c).Value 
   Next 
Next 
End Sub 
' ---------------------------------------------------------------------- | 
Partager