Всем - доброго времени суток!
Подскажите, пожалуйста, как достучаться до сводной таблицы:
не видит, с чем сравнивается, чему равно, соответственно - не выполняются задания внутри блока:

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

.......

End If

Пролетает со свистом, даже если в сводной таблице выбрано именно это значение даты. С VBA хорошо не знакома, но есть очень большая необходимость в этом отчете. Помогите, пожалуйста. Может быть, что-нибудь уточнить?

А как проверить значение по-другому? Есть ли какая-то возможность уровнять эти две части равенства в условии? Я думала, что в правой я указываю значение этого параметра ....

Понимаете, на форме - в Excel - она как раз и равна в текстовом эквиваленте - правой части. Это выпадающая менюшка, где я галочками отметила как раз январь-месяц первого квартала 2009 года. Или я даже тут же перед тем, как проверять это равенство, присваиваю значение элементу:

ActiveSheet.PivotTables("Сводная таблица1").PivotFields("[Дата]"). _
AddPageItem "[Дата].[Год].&[2009].&[1].&[1].&[1]", True


В текстовом эквиваленте это и есть: "[Дата].[Все даты].[2009 год].[Квартал 1].[Январь]"
Потом условие - и все вылетает без зацепки ....

И отладчик мне не показывает значения ... Может, в левой части надо было дописать, типа
.Caption или .Text? (чтобы и справа и слева в этом выражении были сравнимые составляющие) Есть ли в VBA такая возможность?