Поделиться через


Метод PivotCaches.Create (Excel)

Создает сводную таблицу.

Синтаксис

expression. Create (SourceType, SourceData, Version)

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

Параметры

Имя Обязательный или необязательный Тип данных Описание
SourceType Обязательный XlPivotTableSourceType SourceType может быть одной из следующих констант XlPivotTableSourceType : xlConsolidation, xlDatabase или xlExternal.
SourceData Необязательный Variant Данные для нового кэша сводной таблицы.
Версия Необязательный Variant Версия сводной таблицы. Версия может быть одной из констант XlPivotTableVersionList .

Возвращаемое значение

PivotCache

Замечания

Две следующие константы XlPivotTableSourceType не поддерживаются при создании сводной таблицы с помощью этого метода: xlPivotTable и xlScenario. Если указана одна из этих двух констант, возвращается ошибка времени выполнения.

Аргумент SourceData является обязательным, если sourceType не является xlExternal. Ему следует передать объект Range (если SourceType имеет значение xlConsolidation или xlDatabase) или объект WorkbookConnection (если SourceType имеет значение xlExternal).

При передаче объекта Range рекомендуется использовать строку, чтобы указать книгу, лист и диапазон ячеек, либо настроить именованный диапазон и передать имя в виде строки. Передача объекта Range может неожиданно вызвать ошибки "несоответствие типов".

Если она не указана, версия сводной таблицы будет xlPivotTableVersion12. Использование константы xlPivotTableVersionCurrent запрещено и возвращает ошибку во время выполнения, если она указана.

Пример

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

Workbooks("Book1").Connections.Add2 _
    "Target Connection Name", "", Array("OLEDB;Provider=MSOLAP.5;Integrated Security=SSPI;Persist Security Info=True;Data Source=##TargetServer##;Initial Catalog=Adventure Works DW", ""), 
    "Adventure Works", 1
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlExternal, SourceData:=ActiveWorkbook.Connections("Target Connection Name"), _ 
    Version:=xlPivotTableVersion15).CreatePivotChart(ChartDestination:="Sheet1").Select

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

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