带Power Query加载项的Excel 2013，VBA似乎不支持查询语法

对不起，我在同一主题上的第二篇文章。我有一些使用Excel 2016用VBA编写的代码，需要迁移以至少支持Excel 2013

我发帖询问是否有人对如何迁移代码有想法——在等待响应的同时，我尝试安装Power Query加载项，结果成功，但VBA代码仍然抛出438运行时错误

默认情况下，Power Query加载项显示为启用状态-I签入文件->选项->COM加载项，并且Power Query已选中

我运行的代码如下：

For i = 1 To ActiveWorkbook.Queries.Count
    If ActiveWorkbook.Queries.Item(i).Name = itemToMatch Then
        ActiveWorkbook.Queries.Item(i).Delete
    End If
Next

ActiveWorkbook.Queries.Add Name:=itemToMatch, Formula:=Formula

End Sub

它在ActiveWorkbook.Queries.Count处抛出一个错误，应该是有效的格式吗

---

再次提前感谢您

它似乎是在2016年添加到对象模型的。因此power query加载项不支持查询对象模型？我对Excel的SQL方面真的很陌生，我觉得这很令人沮丧。外接程序与实际的Excel对象模型是分开的。可能有其他选择，但我不确定（因为我有更高版本的Excel，所以无法测试）。您可以通过

工作簿.Connections

集合访问查询。