con estas líneas de código en la ventana inmediato leo todo el contenido del xml, incluso el de la cdata, pero como haría para pasar dicho contenido en formato tabular a excel??🙄
Sub TestXML3()
Dim XDoc As Object
Set XDoc = CreateObject("MSXML2.DOMDocument")
XDoc.async = False: XDoc.validateOnParse = False
XDoc.Load (ThisWorkbook.Path & "\ad09004905940102100002111.xml")
'Get Document Elements
Set lists = XDoc.DocumentElement
'Traverse all elements 2 branches deep
For Each listNode In lists.ChildNodes
Debug.Print "---Email---"
For Each fieldNode In listNode.ChildNodes
Debug.Print "[" & fieldNode.BaseName & "] = [" & fieldNode.Text & "]"
Next fieldNode
Next listNode
Set XDoc = Nothing
End Sub
Agradezco su ayuda
Recommended Posts
Archived
This topic is now archived and is closed to further replies.