Access to ( xml,excel )

Soyez le premier à donner votre avis sur cette source.

Vue 17 264 fois - Téléchargée 1 953 fois

Description

Avez-vous déjà utilisé des données sous forme des fichiers xml ou excel ?

Ce programme va t?aider a convertir vos données Access au fichiers xml ou excel

Source / Exemple :


'source dans le zip

Conclusion :


Votre remarque m?intéresse

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
1
Date d'inscription
lundi 7 février 2011
Statut
Membre
Dernière intervention
3 mai 2011

ça ne fonctionne pas! Imports Excel

/* c'est quoi ce truc !! j'ai ajouter

"Imports Microsoft.Office.Interop.Excel "

mais ça marche pas et j'ai rien compris :(
Messages postés
1
Date d'inscription
dimanche 28 décembre 2008
Statut
Membre
Dernière intervention
19 novembre 2009

Merci
Messages postés
3
Date d'inscription
mercredi 19 novembre 2008
Statut
Membre
Dernière intervention
16 février 2009

Merci
Messages postés
19
Date d'inscription
dimanche 15 avril 2007
Statut
Membre
Dernière intervention
20 octobre 2010

Je viens de m'apercevoir qu'il fallait aussi ajouter
Me.ProgressBar1.Value = 0
au tout début du code sur l'action click du bouton4 pour réinitialiser la progressbar avant toute action.
Sinon, lorsqu'on enchaîne les exports xls et xml pour une même table, il plante car à la fin, 1 + 1 = 2 (c'est un scoop ! ;-), et la valeur de la progressbar ne peut pas être supérieure à 1.

début du Code à modifier :
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butt_Convertir.Click
Me.ProgressBar1.Value = 0
If Me.RadioButton1.Checked Then
For i As Integer = 0 To Me.ListBox2.Items.Count - 1
If TableToXmlConverter(Me.ListBox2.GetItemText(Me.ListBox2.Items(i)), Me.TextBox2.Text, Con) Then
Me.ProgressBar1.Value += 1
End If
Next
Messages postés
19
Date d'inscription
dimanche 15 avril 2007
Statut
Membre
Dernière intervention
20 octobre 2010

Merci pour cette source qui m'a permis de faire mes exports xml sans me casser la tête !

Juste deux petits soucis pour l'export excel.
Il faut remplacer Rows par Columns dans la première boucle
'Entéte de feuille
Dim C, L As Integer
For C = 0 To DataSet.Tables(0).Columns.Count - 1
xls.Cells(1, C + 1) = DataSet.Tables(0).Columns(C).ColumnName
Next

Et la variable B doit être mise à False lorsque l'on est dans le Catch de l'exception.
On peut même y ajouter :
MessageBox.Show(ex.ToString) 'donne le lib de l'erreur rencontrée
si on veut.

Voilà. Très bonne source dans l'ensemble. Merci de l'avoir partagée.
Afficher les 13 commentaires

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.