Sql server 如果无法打开/找到SQL连接，则结束Sub/退出Sub

当相关联的SQL连接无法打开时，是否有方法结束sub

例如，我的代码如下所示：

ActiveWorkbook.RefreshAll

但是如果连接的sql连接无法打开，我想立即结束Sub

我试过这样的方法：

On Error GoTo Test
ActiveWorkbook.RefreshAll

'My Makro

Test:
MsgBox "Error"
End Sub

---

但是VBA似乎没有将不可用的SQL连接视为此上下文中的“真实”错误。

您可以使用

Exit Sub

当遇到错误时，Excel本身不提供停止尝试刷新其余对象的功能吗？是否像

activesheet.listobjects（1）那样刷新查询表.querytable.refresh

生成错误。如果是这样的话，试着循环它们中的每一个并调用刷新。@Nathan_Sav是的，但不幸的是，当连接正确时，他也向我显示了一个错误，这显然是因为您在

测试之前缺少
退出子项：
。