VBA 强制 SAX 编码 UTF-8 并缩进

Question

我正在编写 VBA 来导出 xml。我使用 SAXXMLReader 因为我需要非常缩进的输出。

这就是我希望声明的样子：

<?xml version="1.0" encoding="UTF-8"?>

结果如下：

<?xml version="1.0" encoding="UTF-16" standalone="no"?>

为什么 SAX 忽略我的编码选择以及如何强制它使用 8.

Sub XML_Format_Indent_Save(xmlDoc1 As MSXML2.DOMDocument60, strOutputFile As String)
    Dim xmlWriter As MSXML2.MXXMLWriter60
    Dim strWhole As String

    Set xmlWriter = CreateObject("MSXML2.MXXMLWriter")
    xmlWriter.omitXMLDeclaration = False
    xmlWriter.Indent = True
    xmlWriter.Encoding = "utf-8"
    With CreateObject("MSXML2.SAXXMLReader")
        Set .contentHandler = xmlWriter
        .putProperty "http://xml.org/sax/properties/lexical-handler", xmlWriter
        .Parse xmlDoc1
    End With
    strWhole = xmlWriter.output
    ExportStringToTextFile strOutputFile, strWhole
End Sub

Answer 1

从我在另一篇文章中读到的内容来看，您需要设置.byteOrderMark为true或false，否则.encoding将被忽略。