Exporter DataTable vers Excel [Résolu]

Messages postés
65
Date d'inscription
vendredi 8 juillet 2005
Dernière intervention
25 janvier 2008
- - Dernière réponse : cs_MACHOMAN
Messages postés
25
Date d'inscription
mercredi 1 novembre 2000
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
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 120 internautes nous ont dit merci ce mois-ci

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.