VBA执行XML转换时未加载导入的XSL样式表，如何解决？

报错的核心原因是MSXML2.DOMDocument默认不会自动加载XSLT里的<xslt:include>外部引用文件，导致主XSLT找不到依赖的模板（比如你提到的example模板）。要解决这个问题，只需在加载XSLT时添加两个关键属性设置，同时确保引用文件路径正确。

修改后的转换函数代码 #

Public Function Transform(strXML As String, strXSLT As String, strOutput As String, _
         Optional strError As String) As Long

     Dim objXML As MSXML2.DOMDocument60
     Dim objXSLT As MSXML2.DOMDocument60
     Dim objOutput As MSXML2.DOMDocument60

     Set objXML = New MSXML2.DOMDocument60
     objXML.Load strXML
     If objXML.parseError = 0 Then
         Set objXSLT = New MSXML2.DOMDocument60
         ' 关键设置：允许加载外部引用，同步加载确保所有文件加载完成
         objXSLT.resolveExternals = True
         objXSLT.async = False
         objXSLT.Load strXSLT
         If objXSLT.parseError = 0 Then
             Set objOutput = New MSXML2.DOMDocument60
             objXML.transformNodeToObject objXSLT, objOutput
             objOutput.Save strOutput
         Else
             Transform = objXSLT.parseError.errorCode
             strError = ".xslt-file: " & vbCrLf & strXSLT & vbCrLf & objXSLT.parseError.reason
         End If
     Else
         Transform = objXML.parseError.errorCode
         strError = ".xml-file: " & vbCrLf & strXML & vbCrLf & objXML.parseError.reason
     End If

End Function

关键修改说明 #

• objXSLT.resolveExternals = True：开启外部资源解析，让MSXML自动加载<xslt:include>或<xslt:import>引用的文件
• objXSLT.async = False：强制同步加载，确保所有依赖的XSLT文件都加载完成后再执行后续的转换操作，避免因异步加载导致的模板缺失

额外注意事项 #

• 路径正确性：确保layout.xsl、calculations.xsl等引用文件和主XSLT文件在同一目录，或者在href中使用绝对路径（比如C:\XSLT\layout.xsl）
• 权限问题：如果引用文件在网络共享文件夹或受保护的目录下，需要确保当前用户有读取权限
• MSXML版本：你使用的MSXML2.DOMDocument60是推荐版本，兼容性和稳定性都较好，无需更换

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