[VBA-E]Classe d'export xml
Bonjour à tous.
Voilà, je suis en train d'écrire une classe en VBA pour excel qui permettra de créer des fichiers XML par le code. Actuellement, j'ai un système qui marche pas trop mal et qui génére des fichiers valides. C'est pas super optimisé et pas forcément propre, mais ça marche.
C'est quand j'ai commencé à m'intéresser au dtd, xsl et xsd que je me suis posé la bonne question: Existe-t-il quelque part une classe qui fait déjà cela ?
J'ai trouvé MSXML, mais la documentation est assez obscur, et je doit dire que je ne comprend pas tout.
Si vous avez des suggestions, je suis preneur.
Voici un exemple de réalisation:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
Option Explicit
Public xmlfile
Sub essai()
Set xmlfile = New XMLUtils
With xmlfile
.Initialize "D:\essai.xml"
.Add_header V1_0, UTF_8, "calle"
.AddElementWithInnerText "ROOTElement"
.AddElementWithInnerText "ERRE", "ceci est un text dans la balise"
.AddElementWithAttribut "peter", False, "text", "pierre", "number", "047108"
.AddElementWithInnerText "Element23", "Innertext dans la balise"
.CloseElement "peter"
.CloseElement "ROOTElement"
.Finalize
End With
End Sub |
et le fichier xml générer:
Code:
1
2
3
4
5
6
7
8
9
10
|
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<calle>
<ROOTElement>
<ERRE>ceci est un text dans la balise</ERRE>
<peter text='pierre' number='047108'>
<Element23>Innertext dans la balise</Element23>
</peter>
</ROOTElement>
</calle> |
Comme vous le constater, la syntaxe est relativement simple.
J'attend vos commentaire et réponse. Merci d'avance
