Exporter DataTable vers Excel [Résolu]

thefada 65 Messages postés vendredi 8 juillet 2005Date d'inscription 25 janvier 2008 Dernière intervention - 15 août 2005 à 14:24 - Dernière réponse : cs_MACHOMAN 25 Messages postés mercredi 1 novembre 2000Date d'inscription 2 février 2006 Dernière intervention
- 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

cs_MACHOMAN 25 Messages postés mercredi 1 novembre 2000Date d'inscription 2 février 2006 Dernière intervention - 16 août 2005 à 09:24
+3
Utile
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
Cette réponse vous a-t-elle aidé ?  

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.