Доброго времени суток!!! Помогите, пожалуйста, с решением такого вопроса. У меня в сводную таблицу Excel выводятся данные кубов "ОЛАП". В области фильтра стоит элемент "Дата", который имеет иерархию: Год-Квартал-Месяц-Декада. В зависимости от того, что выбрал пользователь, должен отрабатывать код. Как создать предусловие к этому коду - в этом проблема. Не могу увидеть программно (в VBA), что там рисует Excel. Может, какое дополнительное свойство надо прописать??

If ActiveSheet.PivotTables("Сводная таблица1").PivotFields("[Дата]") = _
("[Дата].[Все даты].[2009 год].[Квартал 1].[Январь]") Then

.......

End If

Какого типа переменную можно взять, чтобы посмотреть содержимое этого

ActiveSheet.PivotTables("Сводная таблица1").PivotFields("[Дата]") ?

Т.е., узнать, что выбрано пользователем? Или вопрос не понятен :((