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
cs_chaton76
Messages postés1Date d'inscriptiondimanche 25 janvier 2004StatutMembreDernière intervention20 avril 2006 20 avril 2006 à 15:55
Pour répondre à Benouille, il est en effet impossible que ce code fonctionne avec plusieurs tables dans le dataSet. Si quelqu'un désire le code modifié en C# je vous l'envoie.
lordskyser1
Messages postés84Date d'inscriptionlundi 31 mars 2003StatutMembreDernière intervention 1 juillet 2006 13 nov. 2005 à 18:52
Très bien comme petit exemple. Juste un petit défaut, lorsqu'on sélectionne une table d'une base, que l'on génère le dataset, il n'est pas possible par la suite de sélectionner une table d'une autre base et de générer un autre dataset pour l'exporter vers excel sans redémarrer l'application.
BruNews
Messages postés21041Date d'inscriptionjeudi 23 janvier 2003StatutModérateurDernière intervention21 août 201919 12 sept. 2005 à 00:42
Le format de fichier Access utilise le moteur Jet qui est tout à fait un moteur de base de données, le fait de tout mettre dans 1 seul fichier ne change rien à l'affaire. A l'intérieur y sont stockés les différentes tables, indexes, relations, etc... Un moteur SQL complet est aussi intégré.
cs_Benouille
Messages postés215Date d'inscriptionjeudi 24 octobre 2002StatutMembreDernière intervention 7 septembre 2007 12 sept. 2005 à 00:29
Access n'est pas nue base de données c'est un fichier de données.
bon 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.
22 août 2007 à 14:16
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
20 avril 2006 à 15:55
13 nov. 2005 à 18:52
12 sept. 2005 à 00:42
12 sept. 2005 à 00:29
bon 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.