Excel：处理数据连接刷新时的错误

我有一个带有数据连接的 Excel 文件（olap 多维数据集），有时我可以刷新它，但有时，随机刷新失败（可能数据源暂时不可用，我不知道为什么，不幸的是我没有'没有此 Microsoft sql Server 的管理员权限）并且我收到这些弹出窗口：

我点击确定

我点击取消

我点击确定，然后我再次尝试刷新成功。

如果我使用 vba 调用刷新，即使出现弹出窗口，代码中也不会出现任何错误。我如何使用 vba 处理这个问题？