QueryTable.MaintainConnection-Eigenschaft (Excel)

True, wenn die Verbindung zu der angegebenen Datenquelle nach der Aktualisierung bis zum Schließen der Arbeitsmappe aufrechterhalten bleibt. Der Standardwert ist True. Boolean-Wert mit Lese-/Schreibzugriff.

Syntax

Ausdruck. MaintainConnection

Ausdruck Eine Variable, die ein QueryTable-Objekt darstellt.

HinwBemerkungeneise

Sie können die MaintainConnection-Eigenschaft nur festlegen, wenn die QueryType-Eigenschaft der Abfragetabelle oder des PivotTable-Caches auf xlOLEDBQuery festgelegt ist.

Wenn häufige Abfragen an einen Server erfolgen, kann die Festlegung dieser Eigenschaft auf TrueTrue unter Umständen die Leistung steigern, indem die Zeit für den erneuten Verbindungsaufbau reduziert wird. Wird die Eigenschaft auf FalseFalse eingestellt, wird eine geöffnete Verbindung geschlossen.

Wenn Sie Daten über die Benutzeroberfläche importieren, werden Daten aus einer Webabfrage oder einer Textabfrage als QueryTable-Objekt importiert, während alle anderen externen Daten als ListObject-Objekt importiert werden.

Wenn Sie Daten mithilfe des Objektmodells importieren, müssen Daten aus einer Webabfrage oder einer Textabfrage als QueryTable importiert werden, während alle anderen externen Daten entweder als ListObject oder als QueryTable importiert werden können.

Verwenden Sie die QueryTable-Eigenschaft des ListObject , um auf die MaintainConnection-Eigenschaft zuzugreifen.

Beispiel

In diesem Beispiel wird ein neuer PivotTable-Cache basierend auf einem OLAP-Anbieter und anschließend ein neuer PivotTable-Bericht erstellt, der auf dem Cache in Zelle A3 des aktiven Arbeitsblatts basiert. Im Beispiel wird die Verbindung nach der ersten Aktualisierung beendet.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.