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
- Exporter DataTable vers Excel
- Exporter une datatable vers excel en jsf+dataExport de primefaces » Forum - Java
- Exporter listview vers excel » Codes sources - Visual Basic / VB.NET (Base de Donnees)
- Exporter DataGridView vers Excel [Résolu] (Résolu) » Forum - VB.NET
- Exporter jtable vers excel » Forum - Java
- Exporter Flexgrid vers excel avec les couleurs » Forum - Visual Basic 6
1 réponse
Meilleure réponse
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
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
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 98 internautes 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.