Mega Code Archive

 

Categories / VisualBasic Script / XML

 

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