如何使用 VBA 关闭弹出的连接窗口？答案

【问题标题】：How to use VBA to close a pop up connection window?如何使用 VBA 关闭弹出的连接窗口？
【发布时间】：2021-02-24 22:35:37
【问题描述】：

大家！当我的连接不工作时，我需要关闭或取消弹出窗口。

我使用 WorkBook.RefreshAll 刷新了我的工作簿中的所有查询，我需要检查它是否有效。

为此，我输入了if range("a2").value = format(date, dd-mm-yyyy) then goto error，因此如果 range("a2") 中的日期不是当天的日期，则会启动警报。

不幸的是，有时我会遇到连接问题，但我看不到它。所以下面的弹出窗口破坏了我的代码。

有谁知道如何禁用它或如何关闭或取消它？

我已经尝试使用application.alerts = false，但它不起作用。

[]

【问题讨论】：

【解决方案1】：

您是否尝试发送 Alt+F4 ？理论上，它会关闭活动窗口，其他选项，如果窗口总是出现在同一个地方，你可以尝试将光标移动到x按钮并设置一个点击

'对于 alt+F4

Sub Close()
   SendKeys "%{F4}"   
End Sub

【讨论】：

挑战是只有在我遇到一些连接问题时才会出现该窗口。我想要做的是让 VBA 代码在出现时保持运行（比如跳过它）。如果我使用 'alt + F4' 我害怕关闭任何工作簿窗口。
是否有任何 IF 子句可以用来验证是否打开了任何弹出窗口？如果是这样，“Alt+F4”可能会起作用。