Exporter DataTable vers Excel [Résolu]

Messages postés
65
Date d'inscription
vendredi 8 juillet 2005
Statut
Membre
Dernière intervention
25 janvier 2008
- - Dernière réponse : cs_MACHOMAN
Messages postés
25
Date d'inscription
mercredi 1 novembre 2000
Statut
Membre
Dernière intervention
2 février 2006
- 16 août 2005 à 09:24
Salut tout le monde, je cherche a exporter une table que j'ai dans un dataset au format excel .xls.



J'ai vu une solution appelee Tab Delimited
Format mais elle ne me convient pas car elle ne permet pas de donner des noms aux colonnes(or j'en ai 18 :/)



Toute aide serait la bienvenue.



Thefada
Afficher la suite 

1 réponse

Meilleure réponse
Messages postés
25
Date d'inscription
mercredi 1 novembre 2000
Statut
Membre
Dernière intervention
2 février 2006
3
Merci
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)



'datatable pour récupérer le nom des colonnes du datagrid



Dim da
As
New DataTable


SQlDAviewer.Fill(da)



' mise des infos ds le datagrid



Dim nbrLigne
As
Integer = da.Rows.Count - 1

Dim nbrColon
As
Integer = da.Columns.Count - 1



Dim x, y
As
Integer



For x = 0
To nbrColon



'titres colonnes


xlSheet.Cells(1, x + 1) = da.Columns(x).ColumnName


xlSheet.Rows(1).Font.Bold =
True
' mise en gras



'données



For y = 0
To nbrLigne


xlSheet.Cells(y + 2, x + 1) = DataGrid1.Item(y, x)



Next



Next



' Show the sheet.


xlSheet.Application.Visible =
True



' Save the sheet to C:\Test.xls directory.


xlSheet.SaveAs("C:\LPDataViewer.xls")



' Optionally, you can call xlApp.Quit to close the work sheet.


xlSheet =
Nothing


xlBook =
Nothing


xlApp =
Nothing


da =
Nothing

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 158 internautes nous ont dit merci ce mois-ci