全部显示

MaintainConnection 属性

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

说明

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

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

示例

本示例在活动工作表的 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