Exporter DataTable vers Excel [Résolu]
thefada
- Messages postés
- 65
- Date d'inscription
- vendredi 8 juillet 2005
- Dernière intervention
- 25 janvier 2008
- Messages postés
- 25
- Date d'inscription
- mercredi 1 novembre 2000
- Dernière intervention
- 2 février 2006
A voir également:
- Delphi export dataset to excel
- Visual basic datatable - 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
- Dernière intervention
- 2 février 2006
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
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.