Générer un fichier excel à partir d'un dataset
Soyez le premier à donner votre avis sur cette source.
Vue 25 053 fois - Téléchargée 1 905 fois
Description
Codes Sources
A voir également
- Générer un fichier excel à partir d'un dataset
- Générer un fichier PDF à partir D'Excel ✓ - Forum - Visual Basic
- Générer un fichier txt à partir d'Excel ✓ - Forum - Visual Basic
- Visual Basic / VB.NET : Génération de fichier excel et ajout de pièce jointe ! - Guide
- Generer un fichier xml a partir d'une bd - Codes sources - C# / .NET (Base de données)
- Gestion de stock magasin sous vba + chargement et génération de fichier xml à partir de listes - Codes sources - Visual Basic / VB.NET (VBA)
Commentaires
Les références COM à rajouter sont :
Microsoft Office X.0 Object Library & Microsoft Excel X.0 Object Library
Vous devriez alors avoir Excel, Microsoft.Office.Core, stdole et VBIDE
J'ai modifier ta source pour qu'elle n'exporte qu'une table vers Excel :
Private Sub ExporterDataSetVersExcel(ByVal myTable As DataTable, ByVal cheminFichier As String)
Dim myRow As DataRow
Dim myColumn As DataColumn
Dim app As New Excel.Application
Dim exbook As Excel.Workbook
Dim exsheet As Excel.Worksheet
Try
exbook = app.Workbooks.Add
exsheet = exbook.Sheets(1)
Dim i, j As Integer
For i = 0 To myTable.Columns.Count - 1
exsheet.Cells(1, i + 1) = myTable.Columns(i).ColumnName
Next
Dim ligneDebut As Integer = 2
For i = 0 To myTable.Rows.Count - 1
For j = 0 To myTable.Columns.Count - 1
exsheet.Cells(ligneDebut + i, j + 1) = myTable.Rows(i)(j).ToString
Next
Next
exbook.SaveAs(cheminFichier)
Catch ex As Exception
Throw ex
Finally
If Not exbook Is Nothing Then exbook.Close()
If Not app Is Nothing Then app.Quit()
End Try
End Sub
- Messages postés
- 21042
- Date d'inscription
- jeudi 23 janvier 2003
- Statut
- Modérateur
- Dernière intervention
- 21 août 2019
16- Messages postés
- 216
- Date d'inscription
- jeudi 24 octobre 2002
- Statut
- Membre
- Dernière intervention
- 7 septembre 2007
1bon moi y a un truc qui me turlupine:
# For Each myTable In unDataSet.Tables
# For Each myRow In myTable.Rows
# i = 1
# For Each myColumn In myTable.Columns
# exsheet.Cells(j, i) = CType(myRow(myColumn) & "", String)
# i += 1
# Next myColumn
# j += 1
# Next myRow
# Next myTable
avec un for each matable je m'attends a ajouter une feuille a excell
parceque si y a 2 tables ça va réécrire sur la premiere non ?
la je peux pas tester je suis sur un vieux linux sans .net ni meme excel :D
et puis bon j'ai pas de gros de doutes non plus.
vb nouille, le roi de l'éppat'
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.