Home > How-To Library > XML Handling

Read XML

****************************************************************
*       © 2007 CodeItBetter http://www.codeitbetter.com        *
*          This notice MUST stay intact for legal use          *
****************************************************************

Sub ReadXMLFiles()
    Dim objXMLDOM As New MSXML2.DOMDocument26
    Dim objNodes As IXMLDOMNodeList
    Dim objBookNode As IXMLDOMNode
    Dim NodeValue

    'Load xml files
    objXMLDOM.async = False
    objXMLDOM.Load "G:\MyOffice\MyProjects\support\xml\test.xml"

    'Read XML Data
    Set objNodes = objXMLDOM.selectNodes("ErrorLog/Error")
    For Each objBookNode In objNodes
        If objBookNode.selectNodes("ErrorDateTime").length <> 0 Then
            NodeValue = objBookNode.selectSingleNode("ErrorDateTime").nodeTypedValue
            Debug.Print NodeValue
        End If
        If objBookNode.selectNodes("UserName").length <> 0 Then
            NodeValue = objBookNode.selectSingleNode("UserName").nodeTypedValue
            Debug.Print NodeValue
        End If
    Next objBookNode
End Sub

If you would like to submit your code here please us. Do not forget to mention your name. We are always thankful to each and everyone of you who submitted their code here.