QueryTable.MaintainConnection 属性 (Excel)

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

语法

表达式。MaintainConnection

表达 一个代表 QueryTable 对象的变量。

备注

仅当查询表或数据透视表缓存的 QueryType 属性设置为 xlOLEDBQuery 时，才能设置 MaintainConnection 属性。

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

如果使用用户界面导入数据，则来自 Web 查询或文本查询的数据将作为 QueryTable 对象导入，而所有其他外部数据将作为 ListObject 对象导入。

如果使用对象模型导入数据，则必须将 Web 查询或文本查询中的数据作为 QueryTable 导入，而所有其他外部数据都可以作为 ListObject 或 QueryTable 导入。

使用 ListObject 的 QueryTable 属性访问 MaintainConnection 属性。

示例

此示例基于 OLAP 提供程序创建新的数据透视表缓存，然后基于活动工作表上单元格 A3 处的缓存创建新的数据透视表。 本示例将在初始刷新后终止连接。

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

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。