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 

沒有更多