Автозапуск 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