Я получаю сообщение об ошибке:
cannot open PivotTable source file ...XLSX SHEET...
при обновлении всех данных. У меня есть много сводных таблиц, и я не могу найти ту с ошибкой, при обновлении отдельно - нет ошибок, нет скрытых листов.
Как я могу узнать, где проблема?
У меня была эта проблема в сложной электронной таблице. Я удалил все вкладки, пока у меня не было пустой вкладки, и я все еще получил это сообщение. Я обнаружил, что базовая модель данных PowerPivot ссылается на связанную таблицу, которой больше не существует. Удаление связанной таблицы в модели PowerPivot решило проблему.
Проверьте код VBA здесь. Я изменил это. Если вы запустите код, он сломается, если произойдет какая-либо ошибка.
Public Sub RefreshAllPivotTables()
Dim Sheet As Worksheet, Pivot As PivotTable
For Each Sheet In ThisWorkbook.Worksheets
For Each Pivot In Sheet.PivotTables
Debug.Print Sheet.name & "-->" & Pivot.name
Pivot.RefreshTable
Pivot.Update
Next
Next
End Sub