WorkbookQuery.Delete语法疑问：DeleteConnection参数添加位置及编译错误

编译错误原因及修复 #

你的代码首先存在拼写错误：Active.Workbook 应改为 ActiveWorkbook（无句点），这是引发编译错误的原因之一。另外，要传递DeleteConnection:=True参数，直接在Delete方法后指定即可。

修正后的完整代码 #

Dim qwry As WorkbookQuery
For Each qwry In ActiveWorkbook.Queries
    qwry.Delete DeleteConnection:=True
Next

关于Delete方法参数的说明（翻译自微软官方文档） #

WorkbookQuery.Delete 方法用于删除查询，其中可选参数DeleteConnection为布尔值：

• 设为True时，会同时删除与该查询关联的连接
• 默认值为False，仅删除查询本身，保留关联连接

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