自动运行VBA以自动刷新所有数据源

Question

我一直试图将以下内容放在一起，以便在打开工作簿时自动开始并每分钟刷新所有数据源。有人可以帮我解决问题吗？

Option Explicit
Private Sub Workbook_Open()
Public Const cRunIntervalMinutes = 1
Public Const cRunWhat = "Workbook_RefreshAll"
End Sub
Sub Workbook_RefreshAll()
    Application.CalculateFullRebuild
    ActiveWorkbook.RefreshAll
End Sub

Answer 1

您还没有真正说明错误是什么，但是我没有足够的要评论的地方，因此这是一个可行的解决方案：

Sub Auto_Open()

    Application.CalculateFullRebuild

    ActiveWorkbook.RefreshAll

End Sub