Свойство PivotField.CurrentPageList (Excel)

Возвращает или задает массив строк, соответствующих списку элементов, включенным в поле страницы с несколькими элементами отчета сводной таблицы. Для чтения и записи, Variant.

Синтаксис

expression. CurrentPageList

Выражение Переменная, представляющая объект PivotField .

Замечания

Чтобы избежать ошибок во время выполнения, источник данных должен быть источником OLAP, выбранное поле должно находиться в позиции Страница, а свойство EnableMultiplePageItems должно иметь значение True.

Пример

В этом примере задается поле страницы для перечисления элементов продуктов питания отчета сводной таблицы. Предполагается, что на активном листе существует сводная таблица.

Sub UseCurrentPageList() 
 
 Dim pvtTable As PivotTable 
 Dim pvtField As PivotField 
 
 Set pvtTable = ActiveSheet.PivotTables(1) 
 Set pvtField = pvtTable.PivotFields("[Product]") 
 
 ' To avoid run-time errors set the following property to True. 
 pvtTable.CubeFields("[Product]").EnableMultiplePageItems = True 
 
 ' Set the page list to "Food". 
 pvtField.CurrentPageList = "[Product].[All Products].[Food]" 
 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.