如果从刷新数据开始直至关闭工作簿,都一直保留指向指定数据源的连接,则该值为 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