Excel VBA教程:PreserveColumnInfo属性

如果每次刷新查询表时,列排序、筛选和布局信息都会保留,则该值为 True。默认值为 False。Boolean 类型,可读写。

说明

只有当查询表使用数据库连接时,本属性才有效。

可以将本属性设置为 False,以便与 Microsoft Excel 的早期版本兼容。

Excel VBA教程: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

上页:Excel VBA教程:PrefixCharacter属性 下页:Excel VBA教程:PreserveFormatting属性

Excel VBA教程:PreserveColumnInfo属性

Excel VBA教程:PreserveFormatting属性 Excel VBA教程:PresetExtrusionDirection属性
Excel VBA教程:PresetGradientType属性 Excel VBA教程:PresetLightingDirection属性
Excel VBA教程:PresetLightingSoftness属性 Excel VBA教程:PresetMaterial属性
Excel VBA教程:PresetShape属性 Excel VBA教程:PresetTextEffect属性
Excel VBA教程:PresetTexture属性 Excel VBA教程:PresetThreeDFormat属性
Excel VBA教程:Previous属性 Excel VBA教程:PreviousSelections属性
Excel VBA教程:PrintArea属性 Excel VBA教程:PrintComments属性
Excel VBA教程:PrintErrors属性 Excel VBA教程:PrintGridlines属性
Excel VBA教程:PrintHeadings属性 Excel VBA教程:PrintNotes属性
Excel VBA教程:PrintObject属性 Excel VBA教程:PrintQuality属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号