VBA无法从URL加载XML文件，但可加载本地同文件的问题求助

一段运行5年的VBA代码突然失效，代码用于从URL获取XML并解析，原代码如下：

Dim objXML as Object
Set objXML = CreateObject("MSXML2.DOMDocument")
objXML.async = False: objXML.validateOnParse = False
objXML.LoadXML ("https://www.myurl.com/webservicehttp.aspx?key=mykey&format=xml")

执行到LoadXML行时出错，已排查以下情况：

• 网络正常：浏览器可打开该URL查看XML，同账号可从同服务器加载JSON文件
• XML本身无问题：下载文件后通过本地路径可正常加载
• 已尝试URL编码、ADODB.Stream方法，均无效
• 服务商确认无API或安全规则变更

1. 替换LoadXML为Load方法 #

LoadXML的作用是加载XML字符串内容，而非直接加载URL地址。虽然旧环境下可能存在兼容行为，但当前环境变更后该逻辑不再生效，应使用Load方法加载URL：

Dim objXML As Object
Set objXML = CreateObject("MSXML2.DOMDocument.6.0") ' 指定明确版本
objXML.async = False
objXML.validateOnParse = False
' 启用错误捕获便于排查
If Not objXML.Load("https://www.myurl.com/webservicehttp.aspx?key=mykey&format=xml") Then
    MsgBox "加载失败：" & objXML.parseError.reason
End If

2. 强制启用TLS 1.2协议 #

多数现代网站已禁用TLS 1.0/1.1，而旧版MSXML默认不启用高版本TLS，可通过WinHttpRequest先获取内容再加载：

' 启用TLS 1.2协议
Const TLS1_2 = &H800
Dim objHTTP As Object
Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
objHTTP.Option(3) = objHTTP.Option(3) Or TLS1_2 ' WINHTTP_OPTION_SECURITY_FLAGS

' 发送请求获取XML内容
objHTTP.Open "GET", "https://www.myurl.com/webservicehttp.aspx?key=mykey&format=xml", False
objHTTP.Send

If objHTTP.Status = 200 Then
    Dim objXML As Object
    Set objXML = CreateObject("MSXML2.DOMDocument.6.0")
    objXML.async = False
    objXML.validateOnParse = False
    objXML.LoadXML objHTTP.ResponseText
End If

3. 使用明确的MSXML版本 #

避免使用泛用的MSXML2.DOMDocument，指定具体版本（如MSXML2.DOMDocument.6.0），确保调用的是最新且稳定的解析器，减少版本兼容问题。

4. 检查运行环境的网络拦截 #

虽然浏览器可正常访问，但VBA运行环境可能被系统防火墙、杀毒软件或代理规则拦截，可尝试临时关闭安全软件测试，或在代码中显式设置代理（若企业环境有代理要求）。

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