XML pretty printing in VBA

XMLModule.bas

Function PrettyXML(ByVal Source, Optional ByVal EmitXMLDeclaration As Boolean) As String

    Dim Writer As MXXMLWriter, Reader As SAXXMLReader
    Set Writer = New MXXMLWriter
    Writer.indent = True
    Writer.omitXMLDeclaration = Not EmitXMLDeclaration
    Set Reader = New SAXXMLReader
    Set Reader.contentHandler = Writer
    Reader.Parse Source
    PrettyXML = Writer.Output

End Function

Hey, thanks for posting this! When I try this out, Excel stumbles upon line 3 and tells me it doesn't know the type "MXXMLWriter". Is this meant to work in Excel?

Thanks and cheers
Hendrik

Note: If you are using MSXML 6.0, you need to qualify the declarations with a 6.0 on the end.

Function PrettyXML(ByVal Source, Optional ByVal EmitXMLDeclaration As Boolean) As String
    Dim Writer As MXXMLWriter60, Reader As SAXXMLReader60
    Set Writer = New MXXMLWriter60
    Writer.indent = True
    Writer.omitXMLDeclaration = Not EmitXMLDeclaration
    Set Reader = New SAXXMLReader60
    Set Reader.contentHandler = Writer
    Reader.parse Source
    PrettyXML = Writer.Output
End Function

This worked well for me in Access VBA.