如何解决MSXML2.DOMDocument加载XML失败及429运行错误问题

现有Word VBA代码用于创建Msxml2.DOMDocument对象加载XML文件，原始实现代码如下：

Set XDoc = CreateObject("MSXML2.DOMDocument")
XDoc.async = False: XDoc.validateOnParse = False
XDoc.Load (XmlFileName)

该代码在本地设备可正常运行，在其他设备运行时出现两类异常：

• 使用MSXML v3.0时，调用Load方法返回False，无法加载数据
• 尝试切换为MSXML v6.0，将对象创建逻辑修改为Set XDoc = CreateObject("MSXML2.DOMDocument60")，同时切换项目引用为v6.0版本后，触发对象创建失败，弹出错误提示：

Runtime error 429: ActiveX component can't create object
重新注册两个版本MSXML对应的.dll文件后，问题没有得到解决。

跨设备运行异常的核心原因是不同设备的MSXML组件注册状态、系统安全配置、XML解析规则存在差异，和本地开发环境配置不匹配，两类错误的具体触发原因如下：

• MSXML v3.0加载返回False的常见原因
  • v3.0默认的安全解析策略会拦截带NTFS锁定标记的文件（从互联网下载、邮件接收的文件默认带该标记）、包含非法格式字符的XML内容，且不会主动抛出明确错误
  • 传入的XmlFileName路径在目标设备上无效：比如使用了本地专属的映射盘符、相对路径解析结果和本地不一致，或当前Office运行身份没有目标文件的读取权限
  • XML文件编码和解析器默认编码不匹配，导致内容解析失败直接返回False
• MSXML v6.0触发429错误的常见原因
  • 组件注册位数和Office位数不匹配：32位Office对应SysWOW64目录下的组件，64位Office对应System32目录下的组件，注册错误位数的dll无法被识别
  • 静态引用不兼容：手动在VBA工程中添加MSXML6.0的固定版本引用后，目标设备上的组件版本号和开发环境不一致，会导致COM对象检索失败
  • 系统组件被精简：部分定制修改版系统会移除MSXML6.0相关的COM注册信息，导致ProgIDMSXML2.DOMDocument60无法被系统找到
  • Office安全策略拦截：宏安全等级过高、未开启VBA对象模型访问权限时，会直接阻止高风险COM对象的创建

MSXML v3.0加载失败修复 #

1. 先添加解析错误捕获逻辑，定位具体失败原因，不要仅通过Load返回值判断状态：

   Set XDoc = CreateObject("MSXML2.DOMDocument")
   XDoc.async = False
   XDoc.validateOnParse = False
   XDoc.setProperty "SelectionLanguage", "XPath"
   ' 兼容带DTD定义的XML文件
   XDoc.setProperty "ProhibitDTD", False
   Dim loadResult As Boolean
   loadResult = XDoc.Load(XmlFileName)
   If Not loadResult Then
       ' 直接抛出包含错误位置、原因的详细信息
       Err.Raise XDoc.parseError.errorCode, , _
           "XML解析失败：" & XDoc.parseError.reason & _
           " 错误行号：" & XDoc.parseError.Line
   End If
   

2. 校验传入的文件路径：在目标设备上打印XmlFileName的完整值，确认路径为可访问的绝对路径，文件未被其他进程占用；如果是下载/接收的文件，右键打开文件属性，勾选「解除锁定」后再尝试加载。
3. 若存在编码不匹配问题，改用ADODB.Stream按文件实际编码读取内容后，调用XDoc.LoadXML(文件内容)方法完成加载，避免自动编码识别错误。

MSXML v6.0 429错误修复 #

1. 匹配Office位数重新注册对应版本的组件：
   • 32位Office：以管理员身份打开命令提示符，执行%windir%\SysWOW64\regsvr32.exe msxml6.dll
   • 64位Office：以管理员身份打开命令提示符，执行%windir%\System32\regsvr32.exe msxml6.dll
2. 移除VBA工程中对MSXML6.0的静态引用，完全使用晚绑定方式（即直接调用CreateObject("MSXML2.DOMDocument60")）创建对象，避免版本不兼容导致的引用失效。
3. 调整Office安全设置：打开宏设置页面，勾选「信任对VBA工程对象模型的访问」，将文档所在文件夹添加到Office受信任位置，避免安全策略拦截COM对象创建。
4. 若注册组件后仍报错，说明目标设备系统缺失MSXML6.0运行库，安装对应系统版本的MSXML6.0运行库即可，不需要手动替换系统dll文件。

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