Exporter DataTable vers Excel [Résolu]
thefada
Membre Dernière intervention
25 janvier 2008
- - Dernière réponse :
cs_MACHOMAN
Membre Dernière intervention
2 février 2006
- 16 août 2005 à 09:24
- Messages postés
- 65
- Date d'inscription
- vendredi 8 juillet 2005
- Statut
- Messages postés
- 25
- Date d'inscription
- mercredi 1 novembre 2000
- Statut
A voir également:
- Visual basic datatable
- Datatable excel export - Meilleures réponses
- Vb.net datatable to excel - Meilleures réponses
- Exporter listview vers excel - Codes sources - Visual Basic / VB.NET (Base de Donnees)
- Javascript : Export html vers excel - CodeS SourceS - Guide
- Delphi / Pascal : Exporte table ver excel - CodeS SourceS - Guide
- Delphi / Pascal : Exportation access vers excel - CodeS SourceS - Guide
- Exporter DataGridView vers Excel ✓ - Forum - VB.NET
1 réponse
Meilleure réponse
- Messages postés
- 25
- Date d'inscription
- mercredi 1 novembre 2000
- Statut
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
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
158 internautes nous ont dit merci ce mois-ci