VBA中objXML.loadXML报“DTD/schema无效”错误排查求助

问题背景 #

使用VBA（搭配MS Access 2016）调用某API时，Postman中请求正常，但VBA代码执行出现以下问题：

• 调试时变量仅显示XML开头部分，Debug.Print仅输出末尾内容
• objXML.loadXML执行失败，parseError.reason提示DTD存在问题并指定两个字段
• 即使将Postman返回的XML保存为文件，用objXML.load(filename)加载仍报错

排查步骤 #

1. 修正GET请求的参数传递方式

你的代码中用XMLRequest.send "apiKey=" & apiKey传递参数，但GET请求的参数应拼接在URL中，而非send方法的参数里（GET请求的send参数会被忽略）。错误的参数传递可能导致API返回不完整或错误的XML：

' 拼接参数到URL
URL = URL & "?apiKey=" & apiKey
Set XMLRequest = New MSXML2.XMLHTTP60
XMLRequest.Open "GET", URL, False
XMLRequest.Send "" ' GET请求send参数为空

2. 避免重复解析XML

responseXML本身已经是DOM对象，无需转成XML字符串再用loadXML加载。转字符串过程中可能因编码、调试器显示限制导致误判，直接使用responseXML即可：

' 直接检查responseXML的解析错误
If XMLRequest.responseXML.parseError.ErrorCode <> 0 Then
    Debug.Print "Response XML解析错误: " & XMLRequest.responseXML.parseError.reason
    Debug.Print "错误位置: 行" & XMLRequest.responseXML.parseError.Line & ", 列" & XMLRequest.responseXML.parseError.LinePos
End If

注：调试器中变量显示的“...”是VBA对长字符串的显示限制，不代表实际内容截断。

3. 关闭DTD验证（临时排查）

MSXML2.DOMDocument默认会验证XML的DTD，如果API返回的XML包含外部DTD引用且本地无法访问，就会触发错误。可以关闭验证来确认XML结构本身是否正常：

Set objXML = New MSXML2.DOMDocument60
objXML.validateOnParse = False ' 关闭验证
objXML.resolveExternals = False ' 不解析外部DTD引用
If Not objXML.load(XMLRequest.responseXML) Then ' 直接加载responseXML
    Debug.Print objXML.parseError.reason
End If

4. 完整导出API返回内容

将API返回的responseText保存到文件，用文本编辑器完整查看XML内容，确认是否真的存在DTD或字段问题：

' 保存responseText到本地文件
Open "C:\temp\api_full_response.xml" For Output As #1
Print #1, XMLRequest.responseText
Close #1

打开文件后检查：

• DTD引用路径是否正确
• 指定的两个字段是否存在格式错误（比如未闭合标签、特殊字符未转义）
• XML是否完整结束

5. 检查请求头一致性

确保VBA请求的头信息和Postman完全一致，API可能根据请求头返回不同格式的内容。添加必要的请求头：

XMLRequest.setRequestHeader "Accept", "application/xml"
XMLRequest.setRequestHeader "User-Agent", "PostmanRuntime/7.32.3" ' 复制Postman的User-Agent
' 其他Postman中存在的请求头也一并添加

6. 调整DOMDocument的DTD相关属性

如果确实需要加载包含DTD的XML，可调整DOMDocument的属性允许DTD解析：

Set objXML = New MSXML2.DOMDocument60
objXML.setProperty "ProhibitDTD", False ' 允许DTD
objXML.validateOnParse = True ' 开启验证（可选）
objXML.resolveExternals = True ' 解析外部DTD（需确保网络可访问）
If Not objXML.loadXML(XMLRequest.responseText) Then
    Debug.Print objXML.parseError.reason
End If

内容的提问来源于stack exchange，提问作者Thomas Keller