Compartilhar via

Propriedade QueryTable.MaintainConnection (Excel)

  • Artigo

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 QueryTable .

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.

Se você importar dados usando a interface do usuário, os dados de uma consulta Web ou uma consulta de texto serão importados como um objeto QueryTable , enquanto todos os outros dados externos serão importados como um objeto ListObject .

Se você importar dados usando o modelo de objeto, os dados de uma consulta Web ou de uma consulta de texto devem ser importados como uma QueryTable, enquanto todos os outros dados externos podem ser importados como um ListObject ou um QueryTable.

Use a propriedade QueryTable do ListObject para acessar a propriedade MaintainConnection .

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.