Внешний источник данных не доступен ошибка в Excel

Question

Я сталкиваюсь со следующей проблемой: у меня есть три типа рабочих книг: персональный трекер, используемый всеми пользователями, глобальный трекер и рабочая книга Pivot, которые находятся в общей папке. Сценарий: каждый раз, когда пользователь заканчивает свою работу, он нажимает кнопку, данные передаются в GL Tracker. После события изменения в GL Tracker открывается сводная рабочая книга и обновляется сводная таблица.
Затем раз в неделю должна автоматически открываться сводная рабочая книга, например, для планировщика задач, чтобы выполнять некоторые автоматические действия без вмешательства какого-либо пользователя. И вот здесь я сталкиваюсь с проблемой: после открытия Pivot wb я получаю сообщение об ошибке:

Мы не можем получить данные из таблицы Table1 [#Data] в рабочей книге "Global Трекерная дорожка ". Откройте эту книгу в Excel и попробуйте снова.

Я полагаю, это связано с некоторым обновлением данных в сводной таблице и соединениями. Как сделать так, чтобы эта ошибка исчезла, когда Excel открывается сам по себе, но все же позволяет обновлять сводную книгу каждый раз, когда пользователь отправляет свои данные?
Я пытался открыть GL Tracker сразу после открытия сводной книги, но это не сработало. Я также искал код для отключения соединений, но у меня ничего не получалось.

Заранее спасибо.

Answer 1

Попробуйте сделать этот фрагмент кода событием Pivot WB Workbook_Open:

Private Sub Workbook_Open()
    Dim w As Workbook, boolFound As Boolean
    Const GLWorkbookFullName As String = "Global Workbook full name" ' put here the real fullname
    For Each w In Workbooks
        If w.FullName = GLWorkbookFullName Then
            boolFound = True: Exit For
        End If
    End If
    If Not boolFound Then Workbooks.Open GLWorkbookFullName
End Sub