PivotCaches.Create method (Excel) (Método PivotCaches.Create [Excel])

Cria um novo PivotCache.

Sintaxe

expressão. Criar (SourceType, SourceData, Versão)

expressão Uma variável que representa um objeto PivotCaches .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
SourceType	Obrigatório	XlPivotTableSourceType	SourceType pode ser uma destas constantes XlPivotTableSourceType : xlConsolidation, xlDatabase ou xlExternal.
SourceData	Opcional	Variant	Os dados para o novo cache da tabela dinâmica.
Versão	Opcional	Variant	Versão da tabela dinâmica. A versão pode ser uma das constantes XlPivotTableVersionList .

Valor de retorno

PivotCache

Comentários

As duas constantes XlPivotTableSourceType seguintes não são suportadas ao criar uma PivotCache com este método: xlPivotTable e xlScenario. Um erro em tempo de execução será retornado se uma dessas duas constantes for fornecida.

O argumento SourceData será requerido se SourceType não for xlExternal. Deve ser transmitido um objeto Intervalo (quando SourceType é xlConsolidation ou xlDatabase) ou um objeto WorkbookConnection (quando SourceType é xlExternal).

Ao transmitir um objeto Intervalo , recomendamos que utilize uma cadeia para especificar o livro, a folha de cálculo e o intervalo de células ou configure um intervalo com nome e transmita o nome como uma cadeia. A passagem de um objeto Intervalo pode causar erros de "erro de correspondência do tipo" inesperadamente.

Quando não for fornecido, a versão da tabela dinâmica será xlPivotTableVersion12. O uso da constante xlPivotTableVersionCurrent não é permitido e retorna um erro em tempo de execução se for fornecida.

Exemplo

O seguinte exemplo de código define uma ligação e, em seguida, cria uma ligação a uma PivotCache.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.