Как исправить ошибку Excel " не удалось получить данные из таблицы в книге…"

возможная причина проблемы, с которой вы столкнулись:

кэш сводной таблицы поврежден, с которым связана сводная таблица.

Решение 1, Автоматическое Обновление:

• щелкните правой кнопкой мыши любую ячейку сводной таблицы.
• выберите Параметры сводной таблицы и перейдите на вкладку Данные.
• в разделе Данные сводной таблицы установите флажок " обновлять данные при Открытие файла".
• отделка с ЛАДНО.

решение 2, Очистить и обновить сводный кэш на нескольких листах:

Private Sub Workbook_Open()
    Dim xPt As PivotTable
    Dim xWs As Worksheet
    Dim xPc As PivotCache

    Application.ScreenUpdating = False

    For Each xWs In ActiveWorkbook.Worksheets
        For Each xPt In xWs.PivotTables
            xPt.PivotCache.MissingItemsLimit = xlMissingItemsNone
        Next xPt
    Next xWs
    For Each xPc In ActiveWorkbook.PivotCaches
        On Error Resume Next
        xPc.Refresh
    Next xPc

    Application.ScreenUpdating = True
End Sub