Подскажите пожалуйста, как решить следующую проблему.
В excel загружен olap-куб, у которого одно измерение имеет несколько уровней. Как с помощью VBA можно раскрыть сразу все уровни этого измерения?
(Такая вот процедура:

ActiveSheet.PivotTables("СводнаяТаблица1").CubeFields(2).TreeviewControl.
Drilled = Array("")

как я понял, открывает 1 уровень, а как сделать, чтобы сразу открыть все уровни?)