'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

'##### источник сводных

Sub TestPtSaveData()

strShName = ActiveSheet.Name

Кеш_сводных = FnPtSaveData("", False)

End Sub

Function FnPtSaveData(ByVal strShMain As String, _

ByVal bVal As Boolean) As Boolean

'strShMain - лист источник

'strShPt - лист со сводными

Dim oSh As Worksheet

Dim oPt As PivotTable

With ThisWorkbook

If Len(strShMain) > 0 Then 'если лист назначен то обрабатываем таблицы только в нем

With .Sheets(strShPt)

If .PivotTables.Count > 0 Then

For Each oPt In .PivotTables

oPt.SaveData = bVal 'сохранять данные

Next 'oPt

End If

End With

Else 'если лист НЕ назначен то все таблицы в книге

For Each oSh In .Sheets

With oSh

If .PivotTables.Count > 0 Then

For Each oPt In .PivotTables

Debug.Print oPt.SaveData & " - " & oSh.Name & " - " & oPt.Name

oPt.SaveData = bVal 'сохранять данные

Next 'oPt

End If

End With

Next 'oSh

End If

End With

End Function