QueryTable.MaintainConnection 屬性 (Excel)

如果從更新資料開始直到關閉活頁簿為止，都要一直與指定的資料來源保持連線，則為 True。 預設值為 True。 可讀寫的 Boolean。

語法

表達。維護連線

詞 代表 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 支援與意見反應。