excel - 每 5 秒运行一次宏/VBA

Question

在 Excel 工作表上，我使用 Microsoft Power Query 创建了几个 SQL 查询，
这些查询应每 5 秒刷新一次，以便从 SQ 数据库中检索新信息。

要刷新，我转到 Excel 中的数据选项卡并点击刷新所有工作簿的全部刷新按钮。这很好用

我想每 5 秒自动执行一次此请求
理想情况下，宏应在后台每 5 秒运行一次命令 Ctrl+Alt+F5。

我怎样才能做到这一点

Answer 1

只需添加 Application.OnTime method到在 5 秒内重新运行的宏的末尾。

Option Explicit

Public bWORKING As Boolean
Public bKEEPWORKING As Boolean

Sub deja_vu()
    'never let it run on top of itself
    If bWORKING Then Exit Sub
    bWORKING = True

    'do something here; refresh connections or whatever

    Debug.Print Now 'just to show it did something

    If bKEEPWORKING Then _
        Application.OnTime Now + TimeSerial(0, 0, 5), "deja_vu"
    bWORKING = False
End Sub

分配 bKEEPWORKING值为 True 并运行 Deja_vu 子过程。它会一直运行直到你设置 bKEEPWORKING为假。有时，我可能会跳过 bKEEPWORKING并让它在特定的工作表单元格上查找一个值。如果值为 0那么该过程不会自行重新安排。