Метод 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 и обратная связь.