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中会提示问题：“？这将取消挂起的数据刷新继续[确定] [关闭]”

我不知道是否可以在运行刷新VBA也是如此，所以它们可以很好地运行而不需要刷新刷新。虽然这看起来像wb.RefreshAll函数容易的工作，但我不存在的vba技能不允许我把它们放在一起....

任何帮助非常感谢！

Answer 1

我尝试一点与通过编辑代码的一部分，它现在的作品：“？这将取消挂起的数据刷新继续”

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

没有更多