我正在使用Excel 2016，并且我的WorkBook中有多个查询连接到服务器中的SQL数据库。
我正在使用以下代码刷新工作簿的所有连接：
For Each objConnection In ThisWorkbook.Connections
objConnection.Refresh
Next
然后，我使用以下内容更新单元格的最新日期：
worksheetControl.Range("UpdateDate") = Format(Now(), "yyyy-MM-dd")
但是有时由于网络连接故障，VPN设置不正确或其他原因，刷新失败。因此，在这种情况下，我不想更新单元格。
如何检查所有连接的刷新是否成功？
提供的解决方案应改用RefreshAll方法。因为它比遍历每个连接都快，所以它是首选方法。