Excel VBA教程:MaintainConnection属性

如果从刷新数据开始直至关闭工作簿,都一直保留指向指定数据源的连接,则该值为 True。默认值为 True。Boolean 类型,可读写。

说明

只有当查询表或数据透视表高速缓存的QueryType属性设置为 xlOLEDBQuery 时,才可以设置 MaintainConnection属性。

如果预计会频繁对服务器进行查询,则可将此属性设置为 True,这样能减少重新连接的时间因而可提高性能。将此属性设置为 False,将会关闭一个打开的连接。

Excel VBA教程:MaintainConnection属性·示例

本示例在活动工作表的 A3 单元格上新建一个基于OLAP 提供程序的数据透视表高速缓存,然后基于该高速缓存新建一个数据透视表。本示例在初始化刷新后中断连接。


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

上页:Excel VBA教程:MailSystem属性 下页:Excel VBA教程:MajorGridlines属性

Excel VBA教程:MaintainConnection属性

Excel VBA教程:MajorGridlines属性 Excel VBA教程:MajorTickMark属性
Excel VBA教程:MajorUnit属性 Excel VBA教程:MajorUnitIsAuto属性
Excel VBA教程:MajorUnitScale属性 Excel VBA教程:ManualUpdate属性
Excel VBA教程:MapPaperSize属性 Excel VBA教程:MarginBottom属性
Excel VBA教程:MarginLeft属性 Excel VBA教程:MarginRight属性
Excel VBA教程:MarginTop属性 Excel VBA教程:MarkerBackgroundColor属性
Excel VBA教程:MarkerBackgroundColorIndex属性 Excel VBA教程:MarkerForegroundColor属性
Excel VBA教程:MarkerForegroundColorIndex属性 Excel VBA教程:MarkerSize属性
Excel VBA教程:MarkerStyle属性 Excel VBA教程:MathCoprocessorAvailable属性
Excel VBA教程:Max属性 Excel VBA教程:MaxChange属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号