Propriedade PivotCache.Connection (Excel)

Devolve ou define uma cadeia que contém uma das seguintes opções:

• Definições OLE DB que permitem ao Microsoft Excel ligar a uma origem de dados OLE DB
• Definições ODBC que permitem ao Excel ligar a uma origem de dados ODBC
• Um URL que permite ao Excel ligar a uma origem de dados Web
• O caminho para e o nome de ficheiro de um ficheiro de texto
• O caminho para e o nome de ficheiro de um ficheiro que especifica uma base de dados ou consulta Web

Variant de leitura/gravação.

Sintaxe

expressão. Ligação

expressão Uma expressão que devolve um objeto PivotCache .

Comentários

Ao utilizar um ficheiro de cubo offline, defina a propriedade UseLocalConnection como Verdadeiro e utilize a propriedade LocalConnection em vez da propriedade Ligação .

Outra opção é acessar uma fonte de dados diretamente, usando a biblioteca do Microsoft ActiveX Data Objects (ADO).

Exemplo

Este exemplo cria uma nova cache de tabela dinâmica com base num fornecedor OLAP e, em seguida, cria um novo relatório de tabela dinâmica com base na cache na célula A3 na folha de cálculo ativa.

With ActiveWorkbook.PivotCaches.Add(SourceType:=xlExternal) 
 .Connection = _ 
 "OLEDB;Provider=MSOLAP;Location=srvdata;Initial Catalog=National" 
 .MaintainConnection = True 
 .CreatePivotTable TableDestination:=Range("A3"), _ 
 TableName:= "PivotTable1" 
End With 
With ActiveSheet.PivotTables("PivotTable1") 
 .SmallGrid = False 
 .PivotCache.RefreshPeriod = 0 
 With .CubeFields("[state]") 
 .Orientation = xlColumnField 
 .Position = 0 
 End With 
 With .CubeFields("[Measures].[Count Of au_id]") 
 .Orientation = xlDataField 
 .Position = 0 
 End With 
End With

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.