Object variable with or with block not set

Question

I have xml file which I am trying to parse:

This is the xml file content

Answer 1

Your code ran fine for me. As @FlorentB. suggested, the document probably failed to parse. I suspect their is an error in the file name. Adding some error handling will help catch these errors.

Sub PrintXML()

    Dim FilePath As String
    Dim XDoc As Object

    FilePath = ThisWorkbook.Path & "\test.xml"

    If Len(Dir(FilePath)) = 0 Then
        MsgBox "File not Found:" & vbCrLf & FilePath, vbCritical
        Exit Sub
    End If

    Set XDoc = CreateObject("MSXML2.DOMDocument")
    XDoc.async = False: XDoc.validateOnParse = False
    XDoc.Load ("C:\Users\norkiosk\Documents\Fax\test.xml")

    'Get Document Elements
    Set lists = XDoc.DocumentElement

    If lists Is Nothing Then
        MsgBox "Failed to Parse File:" & vbCrLf & FilePath, vbCritical
        Exit Sub
    End If

    'Traverse all elements 2 branches deep
    For Each listNode In lists.ChildNodes
        For Each fieldNode In listNode.ChildNodes
            Debug.Print "[" & fieldNode.BaseName & "] = [" & fieldNode.Text & "]"
        Next fieldNode
    Next listNode

    Set XDoc = Nothing

End Sub