sql - 在 Excel 连接中更改 SQL 命令

Question

我正在使用 Excel 2010。我需要创建一个宏，在特定单元格中输入文本后，根据输入的文本更改与数据库的连接的 SQL 命令文本。执行刷新后，必须显示来自数据库的最新信息。

我在更改 SQL 命令文本时遇到问题。下面的代码 - 确切地说是“设置 qTable..”行给了我“运行时错误 9 下标超出范围”错误。

Dim qTable As QueryTable
Set qTable = Workbooks("Dynamic_Reports").Sheets("Report").ListObjects(1).QueryTables(1)
qTable.commandText = commandText
qTable.Refresh

“Dynamic_Reports”是 Excel 文件的名称。
“报告”是必须更新信息的工作表的名称。

我发现了关于上述错误的类似帖子，但没有一个提到 QueryTable 属性。我期待着您的回答!

Answer 1

在对象浏览器中查看 ListObject有一个QueryTable而不是 QueryTables这样收集；

Set qTable = Workbooks("Dynamic_Reports").Sheets("Report").ListObjects(1).QueryTable