Retrieving Information from Element Nodes : XML Data « XML « VBA / Excel / Access / Word






Retrieving Information from Element Nodes

 
Sub IterateThruElements() 
    Dim xmldoc As MSXML2.DOMDocument50 
    Dim xmlNode As MSXML2.IXMLDOMNode 
    Dim xmlNodeList As MSXML2.IXMLDOMNodeList 
    Dim myNode As MSXML2.IXMLDOMNode 

    Set xmldoc = New MSXML2.DOMDocument50 
    xmldoc.async = False 
    xmldoc.Load ("C:\yourFile.xml") 
    Set xmlNodeList = xmldoc.getElementsByTagName("*") 
    For Each xmlNode In xmlNodeList 
        For Each myNode In xmlNode.childNodes 
          If myNode.nodeType = NODE_TEXT Then 
            Debug.Print xmlNode.nodeName & "=" & xmlNode.Text 
          End If 
        Next myNode 
    Next xmlNode 
    Set xmlDoc = Nothing 
End Sub 

 








Related examples in the same category

1.Loading and Retrieving the Contents of an XML File
2.Working with XML Document Nodes
3.Retrieving Specific Information from Element Nodes
4.Retrieving the First Matching Node