Método PivotCaches.Create (Excel)

Cria um novo PivotCache.

Sintaxe

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

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 seguintes constantes XlPivotTableSourceType não são suportadas ao criar um PivotCache usando 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 passado um objeto Range (quando SourceType for xlConsolidation ou xlDatabase) ou um objeto WorkbookConnection (quando SourceType for xlExternal).

Ao passar um objeto Range, recomendamos que você use uma cadeia de caracteres para especificar a pasta de trabalho, planilha e intervalo de células ou configurar um intervalo nomeado e passar o nome como uma cadeia de caracteres. Passar um objeto Range pode causar erros de "incompatibilidade de 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 exemplo de código a seguir define uma conexão e cria uma conexão com um 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.