Bonjour,
il faut rendre les objets excel exploitable par VB.NET, voir :http://msdn.microsoft.com/fr-fr/library/3xxe951d.aspx
Et si possible Option Strict sur "On" pour un code précis.
Voici un début (je redécouvre Excel) donc à tester :
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 31 32
| Imports xls = Microsoft.Office.Interop.Excel
Public Class Form1
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 xls.Application
xl.Workbooks.Add()
For c = 0 To result.Columns.Count - 1
' j'affiche sur la 1ere ligne, les noms des colonnes du Datagridview
'*** Cast de la cellule pour y accéder depuis VB.NET.
Dim castRange As xls.Range = CType(xl.Cells(1, c + 1), xls.Range)
Select Case c + 1
Case 1 : castRange.ColumnWidth = 50
Case 2 : castRange.ColumnWidth = 20
' ETC....
End Select
castRange.Font.Bold = True
castRange.Value = result.Columns(c).HeaderText
Next
' je remplis les cellules du fichiers excel avec les valeurs de result:
'*** SUITE DU CODE
'*** A placer à la fin pour éviter de visualiser le temps de chargement.
xl.Visible = True
End Sub |
PS : pour le centrage des titres, c'était quand même le titre de la discussion :
castRange.HorizontalAlignment = xls.XlHAlign.xlHAlignCenter
Partager