Bucle a través de un documento XML completo

No olvides que en las ciencias informáticas un problema casi siempre tiene más de una resoluciones, así que mostramos lo más óptimo y eficiente.

Solución:

Creo que lo que necesitas aquí es una función recursiva. Realmente no conozco la sintaxis de VBA, así que perdone el pseudocódigo, pero debería poder hacer algo como esto:

Set xmlNodeList = xmlDoc.SelectNodes("/*/llnode")
For Each node in xmlNodeList
    ListNodes(node)
Next

Function ListNodes(n As Node) 
     MsgBox n.nodeName & " " & n.NodeValue & " " & n.NodeType
     If n.HasChildNodes() Then
        MsgBox n.nodeName & "has child nodes"
        For Each n2 in n.ChildNodes
           ListNodes(n2)
        Next
        MsgBox "Done listing child nodes for " & n.nodeName
     End If   
End Function

Sección de Reseñas y Valoraciones

---

---

Utiliza Nuestro Buscador