Mega Code Archive

 

Categories / VisualBasic Script / XML

 

Working with XML Document Nodes

Sub LearnAboutNodes()      Dim xmldoc As MSXML2.DOMDocument50      Dim xmlNode As MSXML2.IXMLDOMNode      Set xmldoc = New MSXML2.DOMDocument50      xmldoc.async = False      xmldoc.Load ("C:\yourFile.xml")      If xmldoc.hasChildNodes Then          Debug.Print "Number of child Nodes: " & xmldoc.childNodes.length          For Each xmlNode In xmldoc.childNodes              Debug.Print "Node name:" & xmlNode.nodeName              Debug.Print "Type:" & xmlNode.nodeTypeString & "(" & xmlNode.nodeType & ")"              Debug.Print "Text: " & xmlNode.Text          Next xmlNode      End If      Set xmlDoc = Nothing  End Sub