Excel VBA设置Query值代码Win11报运行时错误13，Win10正常求助

你的代码在Win11设备上触发运行时错误13（类型不匹配），核心原因是Office版本更新导致的Query对象属性处理逻辑变化：Win11上的Office（尤其是365订阅版）大概率推送了功能更新，修改了Query.Formula属性的赋值类型要求，而Win10设备上的Office版本未同步该更新，因此仍能正常运行。原代码的写法并未被官方弃用，但已不符合新版本的类型校验规则。

替代解决方案 #

方案1：调整引号拼接逻辑（适配新版本格式）

如果你的Query是返回常量值的类型，直接传入字符串即可，无需额外嵌套双引号：

Dim UID As String
UID = "123"
ThisWorkbook.Queries("UID").Formula = UID

若需要保留公式格式（带等号），可改为：

Dim UID As String
UID = "123"
ThisWorkbook.Queries("UID").Formula = "=""" & UID & """"

方案2：通过Parameters集合修改（推荐，兼容性更强）

直接操作Query的参数集合，而非修改Formula属性，这种方式不受版本更新影响，稳定性更高：

Dim UID As String
UID = "123"
' 替换为你实际的参数名称
ThisWorkbook.Queries("UID").Parameters("UID参数").Value = UID
' 刷新Query使修改生效
ThisWorkbook.Queries("UID").Refresh

额外排查建议 #

• 对比Win11与Win10设备的Excel版本（路径：文件>账户>关于Excel），确认版本差异是否为触发问题的直接原因。
• 若仍有问题，可尝试在Win11设备上回滚Office更新，验证是否为更新导致的兼容性问题。

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