Dim pc as PivotCache Dim rs as Recordset 'пробовал и ADODB.Recordset pc = shSvod1.PivotTables("СводнаяТаблица1").PivotCache 'Ошибок нет Set rs = pc.Recordset 'Ошибок нет rs.MoveFirst 'Ошибка что объект не найден