检查查询连接是否已在VBA上成功刷新

时间:2018-11-27 18:48:06

标签: excel vba excel-vba

我正在使用Excel 2016,并且我的WorkBook中有多个查询连接到服务器中的SQL数据库。

我正在使用以下代码刷新工作簿的所有连接:

For Each objConnection In ThisWorkbook.Connections

    objConnection.Refresh

Next

然后,我使用以下内容更新单元格的最新日期:

worksheetControl.Range("UpdateDate") = Format(Now(), "yyyy-MM-dd")

但是有时由于网络连接故障,VPN设置不正确或其他原因,刷新失败。因此,在这种情况下,我不想更新单元格。

如何检查所有连接的刷新是否成功?

提供的解决方案应改用RefreshAll方法。因为它比遍历每个连接都快,所以它是首选方法。

0 个答案:

没有答案