Excel中VBA：全部刷新并保存

Question

我想刷新所有的工作簿（只包含与外部数据3个表），并将其保存每5分钟的一个非常非常简单的任务。我现在有工作簿运行自动通过每5分钟保存：

Sub SaveWb()
    ThisWorkbook.Save
    Application.OnTime Now + TimeValue("00:05:00"), "SaveWb"
End Sub

&

Private Sub Workbook_Open()
    Application.OnTime Now + TimeValue("00:05:00"), "SaveWb"
End Sub

而表使用刷新在5分钟内的背景自动刷新连接属性。但是，我一直运行到的问题，其中的Excel会提示：

“这将取消挂起的数据刷新。继续吗？[OK] [关闭]”

我不知道如果我能有刷新在VBA运行，以及使他们能够在不阻碍了刷新流畅地运行。虽然这看起来与wb.RefreshAll功能，但我不存在的VBA技巧件轻松的工作不允许我把它们放在一起....

任何帮助深表感谢！

Answer 1

我尝试了一点，在通过编辑代码的一部分，它现在的作品：

Sub SaveWb()
    ThisWorkbook.RefreshAll
    ThisWorkbook.Save
    Application.OnTime Now + TimeValue("00:05:00"), "SaveWb"
End Sub

没有更多的“这将取消挂起的数据刷新，是否继续？”