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 dessas constantes XlPivotTableSourceType : xlConsolidation, xlDatabase ou xlExternal.
SourceData Opcional Variantes Os dados para o novo cache da tabela dinâmica.
Versão Opcional Variantes 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 a seguir não têm suporte ao criar uma PivotCache usando esse 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. Ele deve ser passado por um objeto Range (quando SourceType é xlConsolidation ou xlDatabase) ou um objeto WorkbookConnection (quando SourceType é xlExternal).

Ao passar um objeto Range , recomendamos que você use uma cadeia de caracteres para especificar a pasta de trabalho, a planilha e o intervalo de células ou configure um intervalo nomeado e passe 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.