Excel) (PivotCache.ADOConnection 屬性

如果樞紐分析表快取已連線至 OLE DB 資料來源，則會傳回 ADO Connection 連線物件。 ADOConnection 屬性會將 Microsoft Excel 連線公開給資料提供者，讓使用者能夠編寫工作階段內容中的程式碼，此工作階段與 Excel 使用 ADO (相關來源) 或 ADO MD (OLAP 來源) 的工作階段相同。 唯讀。

語法

運算式。ADOConnection

表達 代表 PivotCache 物件的變數。

註解

ADOConnection屬性僅適用于具有 OLE DB 資料來源的會話。 當沒有任何 ADO 工作階段時，查詢將導致執行階段錯誤。

ADOConnection屬性可用於任何具有 ADO 的 OLE DB 型快取。 ADO Connection 物件可以與 ADO MD 一起使用，以尋找快取所根據之 OLAP Cube 的相關資訊。

範例

本範例會將 ADO DB Connection 物件設定為樞紐分析表快取的 ADOConnection 屬性。 此範例假設使用中工作表上有一份樞紐分析報表。

Sub UseADOConnection() 
 
 Dim ptOne As PivotTable 
 Dim cmdOne As New ADODB.Command 
 Dim cfOne As CubeField 
 
 Set ptOne = Sheet1.PivotTables(1) 
 ptOne.PivotCache.MaintainConnection = True 
 Set cmdOne.ActiveConnection = ptOne.PivotCache.ADOConnection 
 
 ptOne.PivotCache.MakeConnection 
 
 ' Create a set. 
 cmdOne.CommandText = "Create Set [Warehouse].[My Set] as '{[Product].[All Products].Children}'" 
 cmdOne.CommandType = adCmdUnknown 
 cmdOne.Execute 
 
 ' Add a set to the CubeField. 
 Set cfOne = ptOne.CubeFields.AddSet("My Set", "My Set") 
 
End Sub

本範例會新增一個計算的成員，並假設使用中工作表上有一份樞紐分析報表。

Sub AddMember() 
 
 Dim cmd As New ADODB.Command 
 
 If Not ActiveSheet.PivotTables(1).PivotCache.IsConnected Then 
 ActiveSheet.PivotTables(1).PivotCache.MakeConnection 
 End If 
 
 Set cmd.ActiveConnection = ActiveSheet.PivotTables(1).PivotCache.ADOConnection 
 
 ' Add a calculated member. 
 cmd.CommandText = "CREATE MEMBER [Warehouse].[Product].[All Products].[Drink and Non-Consumable] AS '[Product].[All Products].[Drink] + [Product].[All Products].[Non-Consumable]'" 
 cmd.CommandType = adCmdUnknown 
 cmd.Execute 
 
 ActiveSheet.PivotTables(1).PivotCache.Refresh 
 
End Sub

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。