Ескертпе
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Жүйеге кіруді немесе каталогтарды өзгертуді байқап көруге болады.
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Каталогтарды өзгертуді байқап көруге болады.
Коллекция всех объектов сводной таблицы в указанной книге.
Замечания
Примечание.
Свойство PivotTables объекта Workbook не возвращает все объекты сводной таблицы в книге. Вместо этого он возвращает только те, которые связаны с разделенными сводных диаграммами. Однако метод PivotTables объекта Worksheet возвращает все объекты сводной таблицы на листе независимо от того, связаны ли они с разделенными сводными диаграммами.
Так как программирование отчетов сводной таблицы может быть сложным, обычно проще всего записывать действия отчета сводной таблицы, а затем пересматривать записанный код.
Пример
Используйте метод PivotTables , чтобы вернуть коллекцию сводных таблиц . В следующем примере показано количество отчетов сводной таблицы на Листе 3.
MsgBox Worksheets("sheet3").PivotTables.Count
Используйте метод PivotTableWizard , чтобы создать отчет сводной таблицы и добавить его в коллекцию. В следующем примере создается новый отчет сводной таблицы из базы данных Microsoft Excel (содержится в диапазоне A1:C100).
ActiveSheet.PivotTableWizard xlDatabase, Range("A1:C100")
Используйте сводные таблицы (index), где index — это номер или имя индекса сводной таблицы, чтобы вернуть один объект сводной таблицы . В следующем примере поле Year делается полем строки в первом отчете сводной таблицы на листе 3.
Worksheets("sheet3").PivotTables(1) _
.PivotFields("year").Orientation = xlRowField
Методы
Свойства
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.