用5-10秒刷新每个excel工作表

Question

我的excel中有100张工作表，并且我不能运行全部刷新，因为它会给我错误"Microsoft Too me tasks“。因此，目前我必须转到每个工作表，并在延迟5-10秒后手动单击“刷新”按钮。如何通过在每次刷新之间延迟5-10秒的情况下单击一个按钮，在所有工作表上自动执行“刷新”？

提前谢谢。

Answer 1

尝试如下所示：

Sub RefreshData()

    Dim ws As Worksheet
    Dim qt As QueryTable

    For Each ws In ThisWorkbook.Worksheets
        For Each qt In ws.QueryTables
            qt.Refresh BackgroundQuery = False
        Next
    Next

    MsgBox "Refresh complete"

End Sub

另一种方法：

Sub RefreshData()

    Dim cn As WorkbookConnection

    For Each cn In ThisWorkbook.Connections
        cn.Refresh
    Next

End Sub