不太确定，但这个旧代码应该可以工作

Sub DeleteEm()
Dim wc As WorkbookConnection
Dim wq As WorkbookQuery
On Error Resume Next
For Each wc In ThisWorkbook.Connections
    wc.Delete
Next
For Each wq In ThisWorkbook.Queries
    wq.Delete
Next
End Sub

出现编译错误很可能是因为键入了Active.Workbook而不是ActiveWorkbook（也可以使用ThisWorkbook）。
现在，对于 DeleteConnection 参数，您可以像调用任何其他sub一样简单地进行调用：

Dim qwry As WorkbookQuery
For Each qwry in ActiveWorkbook.Queries
qwry.Delete True
Next

请注意，在多个参数为可选的情况下，让VBA知道您正在为哪个参数设置值而不是依赖它们在Sub调用中的顺序可能会很有用。在您的示例中，这将是：

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