Accueil > > > GÉNÉRER UN FICHIER EXCEL À PARTIR D'UN DATASET
GÉNÉRER UN FICHIER EXCEL À PARTIR D'UN DATASET
Information sur la source
Description
Ce code permet de générer un fichier Excel à partir d'un DataSet qui est fourni en paramètre.
Source
- Private Sub ExporterDataSetVersExcel(ByVal unDataSet As DataSet)
- Dim CheminDuFichier As String
- Dim myTable As DataTable
- Dim myRow As DataRow
- Dim myColumn As DataColumn
- Dim i As Integer
- SFDLogTraitement.Title = "Choisir un emplacement pour enregistrer le fichier Excel."
- SFDLogTraitement.InitialDirectory = "c:\"
- SFDLogTraitement.Filter = "Fichiers Excel (*.xls)|*.xls"
- SFDLogTraitement.FilterIndex = 2
- SFDLogTraitement.RestoreDirectory = True
- If SFDLogTraitement.ShowDialog() = DialogResult.OK Then
- CheminDuFichier = SFDLogTraitement.FileName
- Try
- Dim app As New Microsoft.Office.Interop.Excel.Application
- Dim exbook As Microsoft.Office.Interop.Excel.Workbook
- Dim exsheet As Microsoft.Office.Interop.Excel.Worksheet
-
- exbook = app.Workbooks.Add
- exsheet = exbook.Sheets(1)
- i = 0
- REM DEFINITION DES EN-TETE DE COLONNES
- For Each myTable In unDataSet.Tables
- For Each myColumn In myTable.Columns
- exsheet.Cells(1, i + 1) = myTable.Columns(i).ColumnName
- i = i + 1
- Next
- Next
-
- Dim j As Integer
- j = 2
- REM CHARGEMENT DES DONNEES DANS LA FEUILLE EXCEL
- 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
-
- exbook.SaveAs(CheminDuFichier)
- app.Visible = True
- Exit Sub
- Catch ex As Exception
- MessageBox.Show(ex.ToString)
- End Try
- End If
- End Sub
Private Sub ExporterDataSetVersExcel(ByVal unDataSet As DataSet)
Dim CheminDuFichier As String
Dim myTable As DataTable
Dim myRow As DataRow
Dim myColumn As DataColumn
Dim i As Integer
SFDLogTraitement.Title = "Choisir un emplacement pour enregistrer le fichier Excel."
SFDLogTraitement.InitialDirectory = "c:\"
SFDLogTraitement.Filter = "Fichiers Excel (*.xls)|*.xls"
SFDLogTraitement.FilterIndex = 2
SFDLogTraitement.RestoreDirectory = True
If SFDLogTraitement.ShowDialog() = DialogResult.OK Then
CheminDuFichier = SFDLogTraitement.FileName
Try
Dim app As New Microsoft.Office.Interop.Excel.Application
Dim exbook As Microsoft.Office.Interop.Excel.Workbook
Dim exsheet As Microsoft.Office.Interop.Excel.Worksheet
exbook = app.Workbooks.Add
exsheet = exbook.Sheets(1)
i = 0
REM DEFINITION DES EN-TETE DE COLONNES
For Each myTable In unDataSet.Tables
For Each myColumn In myTable.Columns
exsheet.Cells(1, i + 1) = myTable.Columns(i).ColumnName
i = i + 1
Next
Next
Dim j As Integer
j = 2
REM CHARGEMENT DES DONNEES DANS LA FEUILLE EXCEL
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
exbook.SaveAs(CheminDuFichier)
app.Visible = True
Exit Sub
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End If
End Sub
Conclusion
Pour faire marcher le code il faudra penser à insérer dans le form qui va accueillir le code un composant "SAVE FILE DIALOG" que vous nommerez "SFDLogTraitement".
Historique
- 09 septembre 2005 00:55:45 :
- J'ai essayé de vous faire un exemple du bout de code que j'ai posté.
L'exemple permet de parcourir vos dossiers et de choisir une base de données Access, ensuite vous donnez le nom d'une des Tables, et avec le bouton "Générer DataSet", vous générez le DataSet. Et pour finir, cliquez sur "Généner Excel" pour générer le fichier Excel à partir du dataset.
la prochaine fois, je vais modifier la source et liste la liste des tables qui sont contenues dans la base de données Access.
A bientôt. (il fait nuit, je vais faire dodo).
UneBase de données Exemple est fournie dans la Source et se trouve dans le dossier "Base de données" de la source.
Sources du même auteur
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
Charger fichier txt dans un dataset en vb net [ par Syphou ]
Bonjour, Je possède un fichier au format txt contenant 30 000 articles. Le fichier est sutructuré en différente colonne séparée par une tabulation. Si
exportre et importer des donnes de dataset vers fichier excel. [ par zozotsdimaroc ]
salut tout le monde ,je sais que ce probleme exsit pq mais j trouve des codes de datagrid vers excel ,et ca fonctinne tres bien,mais pas avec datagri
DataSet Excel [ par spike62300 ]
Bonjour, j'ai besoin de copier un dataset dans un document excel a créerComment faire?Je suis tombé sur des exemples mais ils expliqua
Excel 2007 macro [ par akkuciha ]
Bonjour à tous,J'ai besoins de votre aide pour un fichier excel 2007 que je doit formatter.dans mon fichier j'ai 3 colonne : Produit, Prix , Categorie
[VBA-E] Comment convertir 3000 fichiers de .csv à .xls?? (Attention prise de tête!) [ par maximecdb ]
Salut, Je suis en stage depuis 2 semaines, et l'un de mes premiers boulot est de concaténer plein de données a la suite et je piétine depuis deux jou
Interdire impression fichier excel [ par nonoss56 ]
Bonjour,Et oui je veux interdire l'impression d'un fichier. J'ai bien trouvé la petite macro qui va bien à mettre dans ThisWorkbook:Private Sub Workbo
Automatisation de la récupération de données Excel [ par Incudine ]
Bonjour,Je suis entièrement néophyte au niveau VBA, mais je pense que mon problème doit être très simple pour un habitué de ce langage.Avec Excel 2003
Menu Combo selon colonne A du fichier excel [ par avyrex1926 ]
Bonjour,Je voudrais savoir s'il est possible de donner une valeur au Combo1 VB6 selon un fichier Excel existant dans la colonne A?Si oui, comment fair
Groupement de lignes sous Excel 2007 par VBS [ par pastagas ]
Bonjour,J'ai un script à créer, en VBS, qui a pour but de remonter des informations de fichiers qui sont sur des postes sur le reseau, dans un fichier
Ouvrir/fermer à partir d'un fichier excel un autre fichier excel qui se trouve dans une autre classeur [ par dpx1 ]
Bonjour J'ai un dossier de statitique qui contient une foule de sous dossiers qui contienent des fichiers Excel (260 environs)Il y a 4 fichiers qui
|
Derniers Blogs
CSDL FUNCTIONCSDL FUNCTION par Matthieu MEZIL
Dans mon post précédent , j'ai utilisé une CSDL Function afin de générer une requête SQL avec un DateDiff utilisant la date courante sur la BD à partir d'une requête LINQ. Dans le cadre de ce post , vous avez probablement remarqué que dans le cadre de plu...
Cliquez pour lire la suite de l'article par Matthieu MEZIL LINQ TO ENTITIESLINQ TO ENTITIES par Matthieu MEZIL
Cette semaine je suis à Montréal en tant que speaker sur Entity Framework pour l'évènement confoo . J'en profite pour remercier les organisateurs de cet évènement de m'avoir fait confiance et Access-IT de m'avoir permis d'y participer. En parallèle, j'ai ...
Cliquez pour lire la suite de l'article par Matthieu MEZIL FAIRE APPARAITRE L'ONGLET 'DéVELOPPEUR' DANS OFFICE 2010FAIRE APPARAITRE L'ONGLET 'DéVELOPPEUR' DANS OFFICE 2010 par neodante
La nouvelle interface d'Office 2010 à amener quelques modifications par rapport à celle de 2007. Certes mineures, ces modifications ont fait disparaître la case à cocher de l'onglet 'Développeur' en première page du panneau du 'bouton Office' (dans Office...
Cliquez pour lire la suite de l'article par neodante [ASTUCE] PATCH POUR MICROSOFT FORUMS NNTP BRIDGE V1[ASTUCE] PATCH POUR MICROSOFT FORUMS NNTP BRIDGE V1 par pierre
Si vous avez téléchargé comme moi Microsoft Forums NNTP Bridge V1 avant le 11 mars 2010 (voir [Astuce] Disponibilité de Microsoft Forum NNTP Bridge Version 1.0), un problème de date localisée pour les non anglais était présent. Un patch est disponibl...
Cliquez pour lire la suite de l'article par pierre PB LORS DE L'INSTALLATION SHAREPOINT 2010.PB LORS DE L'INSTALLATION SHAREPOINT 2010. par Patrick Guimonet
Lors de l'installation de SharePoint 2010, j'ai rencontré un problème de plantage à l'étape 5 du configuration Wizard. Ca se termine sur cet écran : Et en analysant le fichier de journalisation, on remarque vers la fin des 15000 et quelques lign...
Cliquez pour lire la suite de l'article par Patrick Guimonet
Logiciels
Xilisoft Convertisseur Vidéo Ultimate (5.1.39.0305)XILISOFT CONVERTISSEUR VIDéO ULTIMATE (5.1.39.0305)Xilisoft Convertisseur Vidéo Ultimate est un outil puissant de conversion vidéo, facile à utilise... Cliquez pour télécharger Xilisoft Convertisseur Vidéo Ultimate Xilisoft DVD Ripper Ultimate (5.0.64.0304)XILISOFT DVD RIPPER ULTIMATE (5.0.64.0304)Xilisoft DVD Ripper Ultimate est un logiciel excellent pour copier et convertir DVD vers presque ... Cliquez pour télécharger Xilisoft DVD Ripper Ultimate Rigs of Rods (63.3)RIGS OF RODS (63.3)c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo... Cliquez pour télécharger Rigs of Rods Konvertor (4.00)KONVERTOR (4.00)Le logiciel est un gestionnaire multimedia affichant, jouant et convertissant plus de 2000 format... Cliquez pour télécharger Konvertor
|