Freigeben über

PivotCache.ADOConnection-Eigenschaft (Excel)

  • Artikel

Gibt ein ADO Connection-Objekt zurück, wenn der PivotTable-Cache mit einer OLE DB-Datenquelle verbunden ist. Die ADOConnection-Eigenschaft macht die Microsoft Excel-Verbindung zum Datenprovider verfügbar, sodass der Benutzer Code im Kontext derselben Sitzung schreiben kann, die von Excel mit ADO (relationale Quelle) oder ADO MD (OLAP-Quelle) verwendet wird. Schreibgeschützt.

Syntax

Ausdruck. ADOConnection

Ausdruck Eine Variable, die ein PivotCache-Objekt darstellt.

Hinweise

Die ADOConnection-Eigenschaft ist nur für Sitzungen mit einer OLE DB-Datenquelle verfügbar. Wenn es sich nicht um eine ADO-Sitzung handelt, wird ein Laufzeitfehler zurückgegeben.

Die ADOConnection-Eigenschaft kann für jeden OLE DB-basierten Cache mit ADO verwendet werden. Das ADO Connection-Objekt kann mit ADO MD verwendet werden, um Informationen über OLAP-Cubes zu suchen, auf denen der Cache basiert.

Beispiel

In diesem Beispiel wird ein ADO DB Connection-Objekt auf die ADOConnection-Eigenschaft des PivotTable-Caches festgelegt. In diesem Beispiel wird angenommen, dass auf dem aktiven Arbeitsblatt ein PivotTable-Bericht vorhanden ist.

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

In diesem Beispiel wird ein berechnetes Element hinzugefügt und dabei angenommen, dass auf dem aktiven Arbeitsblatt ein PivotTable-Bericht vorhanden ist.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.