1 2 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