Propriedade PivotCache.MaintainConnection (Excel)

True se a conexão com a fonte de dados especificada for mantida após a atualização e até a pasta de trabalho ser fechada. O valor padrão é True. Boolean de leitura/gravação.

Sintaxe

expressão. MaintainConnection

Expressão Uma variável que representa um objeto PivotCache .

Comentários

Você só poderá definir a propriedade MaintainConnection se a propriedade QueryType da tabela de consulta ou cache de Tabela Dinâmica estiver definida como xlOLEDBQuery.

Se você previr consultas frequentes a um servidor, a definição dessa propriedade como True poderá melhorar o desempenho reduzindo o tempo de reconexão. A definição da propriedade como False fará com que uma conexão aberta seja fechada.

Exemplo

Este exemplo cria um novo cache de Tabela Dinâmica com base em um provedor OLAP e cria um novo relatório de Tabela Dinâmica com base no cache na célula A3 na planilha ativa. O exemplo encerra a conexão após a atualização inicial.

With ActiveWorkbook.PivotCaches.Add(SourceType:=xlExternal) 
 .Connection = _ 
 "OLEDB;Provider=MSOLAP;Location=srvdata;Initial Catalog=National" 
 .MaintainConnection = False 
 .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.