QueryTable.PreserveColumnInfo-Eigenschaft (Excel)

  • Artikel

True, wenn Sortier-, Filter- und Layoutinformationen einer Spalte erhalten bleiben, wenn eine Abfragetabelle aktualisiert wird. Der Standardwert ist True. Boolean-Wert mit Lese-/Schreibzugriff.

Syntax

Ausdruck. PreserveColumnInfo

Ausdruck Eine Variable, die ein QueryTable-Objekt darstellt.

HinwBemerkungeneise

Diese Eigenschaft hat nur dann Auswirkungen, wenn die Abfragetabelle eine Datenbankverbindung verwendet.

Sie können diese Eigenschaft aus Gründen der Kompatibilität mit früheren Versionen von Microsoft Excel auf False festlegen.

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 PreserveColumnInfo-Eigenschaft zuzugreifen.

Beispiel

In diesem Beispiel werden die Sortier-, Filter- und Layoutinformationen aus Gründen der Kompatibilität mit früheren Versionen von Microsoft Excel erhalten.

Dim cnnConnect As ADODB.Connection 
Dim rstRecordset As ADODB.Recordset 
 
Set cnnConnect = New ADODB.Connection 
cnnConnect.Open "Provider=SQLOLEDB;" & _ 
 "Data Source=srvdata;" & _ 
 "User ID=wadet;Password=4me2no;" 
 
Set rstRecordset = New ADODB.Recordset 
rstRecordset.Open _ 
 Source:="Select Name, Quantity, Price From Products", _ 
 ActiveConnection:=cnnConnect, _ 
 CursorType:=adOpenDynamic, _ 
 LockType:=adLockReadOnly, _ 
 Options:=adCmdText 
 
With ActiveSheet.QueryTables.Add( _ 
 Connection:=rstRecordset, _ 
 Destination:=Range("A1")) 
 .Name = "Contact List" 
 .FieldNames = True 
 .RowNumbers = False 
 .FillAdjacentFormulas = False 
 .PreserveFormatting = True 
 .RefreshOnFileOpen = False 
 .BackgroundQuery = True 
 .RefreshStyle = xlInsertDeleteCells 
 .SavePassword = True 
 .SaveData = True 
 .AdjustColumnWidth = True 
 .RefreshPeriod = 0 
 .PreserveColumnInfo = True 
 .Refresh BackgroundQuery:=False 
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.