Demande d'aide sur Génération de Fichier Excel
Bonjour,
Suite à cette aide de la F.A.Q :
Code:
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
33
34
| Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
xlApp = CType(CreateObject("Excel.Application"), Excel.Application)
xlBook = CType(xlApp.Workbooks.Add, Excel.Workbook)
xlSheet = CType(xlBook.Worksheets(1), Excel.Worksheet)
' ici on compte le nombre de lignes et de colonnes du datatable
Dim nbrLigne As Integer = ds.Tables("da").Rows.Count - 1
Dim nbrColon As Integer = ds.Tables("da").Columns.Count - 1
Dim x, y As Integer
For x = 0 To nbrColon
' ici on prends le titre des colonnes du datatable
xlSheet.Cells(1, x + 1) = ds.Tables("da").Columns(x).ColumnName
' on mets la première ligne en gras
xlSheet.Rows(1).Font.Bold = True
' pour chaque colonne et chaque ligne on transfert les données
For y = 0 To nbrLigne
xlSheet.Cells(y + 2, x + 1) = DataGrid1.Item(y, x)
Next
Next
' ici on affiche les résultat dans excel
xlSheet.Application.Visible = True
' on peut sauvegarder notre document sur le disque
xlSheet.SaveAs("C:\nom_document.xls")
' on quitte l'application et on détruit les objets
xlApp.Quit()
xlSheet = Nothing
xlBook = Nothing
xlApp = Nothing |
Je souhaiterais savoir si quelqu'un pourrai m'apporter plus d'explications sur les possibilitées et les "comments faire" pour créer des bordures dans les cellules, des fonds de couleurs, modifier la police et aussi surtout créer plusieurs classeurs excels dans un même fichier...... Enfin tous les petites choses utiles.
Je remercie d'avance toutes personnes pouvant m'apporter leurs conseils et solutions.
