Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
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.