交叉表查询触发Run-Time错误'13'类型不匹配问题求助

首先，你的核心问题出在用错了执行选择查询的方法——DoCmd.RunSQL是专门用来执行动作查询（比如插入、更新、删除数据）的，而交叉表查询属于选择查询，用它来执行自然会抛出类型不匹配的错误。下面是具体的修复步骤和优化建议：

一、替换执行方法 #

把DoCmd.RunSQL换成适合执行选择查询的方法，比如DoCmd.OpenQuery（直接打开查询结果），这是最直接的修复方式：

修改后的代码：

Dim SKbyYrByMo As String
SKbyYrByMo = "TRANSFORM Sum([1ACTMasterQuery].Extension) AS SumOfExtension" & _
             " SELECT [1ACTMasterQuery].Year, [1ACTMasterQuery].Sku, Sum([1ACTMasterQuery].Extension) AS [Total Of Extension]" & _
             " FROM 1ACTMasterQuery" & _
             " GROUP BY [1ACTMasterQuery].Year, [1ACTMasterQuery].Sku" & _
             " PIVOT [1ACTMasterQuery].MonthNo"

' 使用OpenQuery执行选择查询，而非RunSQL
DoCmd.OpenQuery SKbyYrByMo, acViewNormal, acEdit

二、优化SQL字符串拼接 #

你代码里混用了+和&拼接字符串，这里建议统一用&——+在VBA中如果遇到Null值参与拼接，整个结果会变成Null，而&会自动把Null转为空字符串，避免意外报错。

三、调试技巧（排查潜在问题） #

如果修改后仍有异常，可以先把拼接好的SQL打印出来，直接在Access查询设计器里验证：

' 在执行前添加这行，打开立即窗口查看完整SQL
Debug.Print SKbyYrByMo

打开VBA编辑器的立即窗口（Ctrl+G），复制打印出的SQL内容，新建一个Access查询并切换到SQL视图粘贴运行，就能直观看到是否存在字段拼写错误、类型不匹配等细节问题。

关于你怀疑的日期字段问题：只要前置查询1ACTMasterQuery本身运行正常，交叉表用到的Year和MonthNo是从日期字段提取的有效数值/文本，拼接SQL时不会因为日期字段本身出问题——毕竟交叉表是基于前置查询的结果来运行的。

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