如果每次刷新查询表时,列排序、筛选和布局信息都会保留,则该值为
True。默认值为
False。
Boolean 类型,可读写。
语法
表达式.PreserveColumnInfo
表达式 一个代表 QueryTable 对象的变量。
说明
只有当查询表使用数据库连接时,该属性才有效。
可以将该属性设置为 False,以便与 ET 的早期版本兼容。
如果使用用户界面导入数据,来自 Web 查询或文本查询的数据将作为 QueryTable 对象导入,而所有其他外部数据将作为 ListObject 对象导入。
如果使用对象模型导入数据,来自 Web 查询或文本查询的数据必须作为 QueryTable 导入,而所有其他外部数据既可作为 ListObject 导入,也可作为 QueryTable 导入。
可以使用 ListObject 的 QueryTable 属性访问 PreserveColumnInfo 属性。
示例
本示例保留列排序、筛选和布局信息,以便与 ET 的早期版本兼容。
示例代码 |
---|
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
|