如果每次更新查詢表時,欄排序、篩選和版面配置資訊都將保留,則其值為 True。 預設值為 True。 可讀寫的 Boolean。
語法
表達。保留資料行資訊
詞 代表 QueryTable 物件的變數。
註解
只有當查詢表使用資料庫連線時,本屬性才會產生作用。
您可以將本屬性值設定為 False,以便與舊版的 Microsoft Excel 相容。
如果您使用使用者介面匯入資料,則來自 Web 查詢或文字查詢的資料會匯入為 QueryTable 物件,而所有其他外部資料都會匯入為 ListObject 物件。
如果您使用物件模型匯入資料,則必須將 Web 查詢或文字查詢中的資料匯入為 QueryTable,而所有其他外部資料都可以匯入為 ListObject 或 QueryTable。
使用 ListObject 的 QueryTable 屬性來存取 PreserveColumnInfo 屬性。
範例
這個範例會保留欄的排序、篩選和版面配置資訊,以便與舊版的 Microsoft Excel 相容。
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
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。