自动运行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