设置MSXML2.XSLTemplate60.stylesheet触发参数错误，如何提前用addParameter？

问题原因 #

你遇到的错误是因为XSLT样式表中引用了全局参数xslStationPrecision，但使用XSLTemplate编译样式表时，MSXML会触发参数检查逻辑：

• 若XSLT未显式声明该全局参数，编译阶段直接报错
• 即使XSLT已声明参数，XSLTemplate的流程要求先编译样式表才能创建处理器，而addParameter是处理器的方法，导致无法在报错前注入参数

解决方案 #

方案1：修改XSLT添加全局参数声明 #

先确认你的XSLT文件在根节点<xsl:stylesheet>下显式定义该参数（若尚未定义）：

<!-- 在XSLT顶层添加 -->
<xsl:param name="xslStationPrecision"/>
<!-- 可选：设置默认值，避免未传参时触发异常 -->
<!-- <xsl:param name="xslStationPrecision" select="2"/> -->

方案2：绕过XSLTemplate，直接使用IXSLProcessor #

如果无法修改XSLT，可直接从加载后的XSL DOM创建处理器，先注入参数再执行转换，避开XSLTemplate的编译检查：

Sub test_xsl_with_parameter()
    Dim xslDoc As New MSXML2.FreeThreadedDOMDocument60
    Dim xmlDoc As New MSXML2.DOMDocument60
    Dim xslProc As MSXML2.IXSLProcessor
    Dim PathToXslFile As String
    Dim PathToXmlFile As String
    
    ' 替换为你的实际文件路径
    PathToXslFile = "my_own_custom.xsl"
    PathToXmlFile = "your_input_data.xml"
    
    ' 加载XSLT文件
    xslDoc.async = False
    xslDoc.Load PathToXslFile
    If xslDoc.parseError.ErrorCode <> 0 Then
        Debug.Print "XSL加载失败: " & xslDoc.parseError.reason
        Exit Sub
    End If
    
    ' 加载待处理的XML文件
    xmlDoc.async = False
    xmlDoc.Load PathToXmlFile
    If xmlDoc.parseError.ErrorCode <> 0 Then
        Debug.Print "XML加载失败: " & xmlDoc.parseError.reason
        Exit Sub
    End If
    
    ' 创建XSL处理器并注入参数
    Set xslProc = xslDoc.createProcessor()
    ' 替换为实际需要的参数值
    xslProc.addParameter "xslStationPrecision", 3
    xslProc.input = xmlDoc
    
    ' 执行转换并输出结果
    xslProc.transform()
    Debug.Print xslProc.output
End Sub

关键说明 #

• XSLTemplate的设计逻辑是先编译样式表再生成处理器，因此无法在编译前注入参数
• 直接使用FreeThreadedDOMDocument.createProcessor()创建的处理器，允许先添加参数再执行转换，避免了编译阶段的参数检查冲突

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