PivotCache.MaintainConnection 属性

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

语法

表达式.MaintainConnection

表达式 一个代表 PivotCache 对象的变量。

说明

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

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

示例

此示例在活动工作表的 A3 单元格上新建一个基于 OLAP 提供程序?（OLAP 提供程序：对特定类型的 OLAP 数据库提供访问功能的一组软件。该软件包括数据源驱动程序以及与数据库连接所必需的其他客户端软件。）的数据透视表高速缓存，然后基于该高速缓存新建一个数据透视表。此示例在初始化刷新后中断连接。

示例代码

示例代码
let Pic = ActiveWorkbook.PivotCaches().Add(xlExternal) Pic.Connection = "OLEDB;Provider=MSOLAP;Location=srvdata;Initial Catalog=National" Pic.MaintainConnection = false Pic.CreatePivotTable(Range("A3"), "PivotTable1") let Pit = ActiveSheet.PivotTables("PivotTable1") Pit.SmallGrid = false Pit.PivotCache.RefreshPeriod = 0 let Cub1 = Pit.CubeFields("[state]") Cub1.Orientation = xlColumnField Cub1.Position = 0 let Cub2 = Pit.CubeFields("[Measures].[Count Of au_id]") Cub2.Orientation = xlDataField Cub2.Position = 0

let Pic = ActiveWorkbook.PivotCaches().Add(xlExternal)
    Pic.Connection = "OLEDB;Provider=MSOLAP;Location=srvdata;Initial Catalog=National"
    Pic.MaintainConnection = false
    Pic.CreatePivotTable(Range("A3"), "PivotTable1")
let Pit = ActiveSheet.PivotTables("PivotTable1")
    Pit.SmallGrid = false
    Pit.PivotCache.RefreshPeriod = 0
let Cub1 = Pit.CubeFields("[state]")
    Cub1.Orientation = xlColumnField
    Cub1.Position = 0
let Cub2 = Pit.CubeFields("[Measures].[Count Of au_id]")
    Cub2.Orientation = xlDataField
    Cub2.Position = 0

请参阅