Liste Excel vers XML via VBA

riccco

XLDnaute Nouveau
Bonjour,

Je souhaite écrire une petite macro qui pourrait me permettre de parcourir les valeurs d'une feuille excell fomartée sous forme de liste afin d'extraire les valeurs dans un fichier XML.

Je ne connais pas VB mais j'ai juste besoin d'un coup de pouce de départ : à quel objet dois-je recourir et quelles méthodes utiliser. Je vous expose mon pb :

J'ai une liste Excel typique :

|A|B|C|D|E|E|
---------------
1|a|b|c|d|e|f|
2|b|c|d|e|f|g|


Ce que je voudrais faire :

pour chaque ligne de la feuille,

on prends chaque colonne,​

on recupere le nom l'étiquette de colonne,​
on recupere la valeur de la celulle​

on ecrit le XML​


ce qui donnerait

<monXml>
<A>a</A>
<B>b</B>
<C>c</C>
...​
</monXml>


et ainsi de suite

Qqu'un a t'il une amorce de code à me suggerer ?

Merci d'avance

Ricco
 

disashy

XLDnaute Nouveau
Donnees Excel vers XML via VBA

Bonjour,
J'ai reussi a convertir mes donnees excel 2003 en fichier xml, chez moi; mais au bureau, le fichier xml cree est vide.
Pourriez-vous m'aider, svp?
Merci d'avance

Code:

Option Explicit
Option Base 1

Sub XMLmarkers()
Dim xmlDoc As MSXML2.DOMDocument
Dim xmLstring As String, File As String, strQuote As String
Dim Row As Integer, Col As Integer
Dim Attribut As Variant


strQuote = """"
Set xmlDoc = CreateObject("Microsoft.XMLDOM")
xmLstring = "<?xml version=""1.0"" encoding=""utf-8"" ?> "
xmLstring = xmLstring & "<Markers TitleName=" & strQuote _
& "markers" & strQuote & "> "

Attribut = Array("Lat", "Lng", "Postcode", "Address", "Name", "Category", "Description")


For Row = 2 To Sheets("Sheet1").UsedRange.Rows.Count
xmLstring = xmLstring & "<marker "
For Col = 1 To 7
xmLstring = xmLstring & Attribut(Col) & "=" & _
strQuote & Cells(Row, Col) & strQuote & " "
Next
xmLstring = xmLstring & " />"
xmLstring = xmLstring & " "

Next Row

xmLstring = xmLstring & "</Markers>"

xmlDoc.loadXML xmLstring
File = "C:\Users\Tex'Ance\Desktop\test2.xml"
xmlDoc.Save (File)
End Sub
 

Discussions similaires

Réponses
15
Affichages
483
Réponses
22
Affichages
691
Réponses
6
Affichages
202

Statistiques des forums

Discussions
311 740
Messages
2 082 047
Membres
101 880
dernier inscrit
Anton_2024