Freigeben über


CubeFields.AddSet-Methode (Excel)

Fügt der CubeFields-Auflistung ein neues CubeField-Objekt hinzu. Das CubeField-Objekt entspricht einer Datenreihe, die für den Cube auf dem OLAP (Online Analytical Processing)-Anbieter definiert wurde.

Syntax

Ausdruck. AddSet (Name, Caption)

Ausdruck Eine Variable, die ein CubeFields-Objekt darstellt.

Parameter

Name Erforderlich/Optional Datentyp Beschreibung
Name Erforderlich String Ein gültiger Name im SETS-Schemarowset.
Caption Erforderlich String Eine Zeichenfolge, die das Feld darstellt, das in der PivotTable-Ansicht angezeigt wird.

Rückgabewert

CubeField

Hinweise

Wenn eine Datenreihe mit dem im Argument Name angegebenen Namen nicht vorhanden ist, gibt die AddSet-Methode einen Laufzeitfehler zurück.

Beispiel

In diesem Beispiel fügt Microsoft Excel dem CubeField-Objekt eine Gruppe mit dem Titel My Set hinzu. In diesem Beispiel wird davon ausgegangen, dass auf dem aktiven Arbeitsblatt ein OLAP-PivotTable-Bericht vorhanden ist und dass ein Feld mit dem Titel Product vorhanden ist.

Sub UseAddSet() 
 
 Dim pvtOne As PivotTable 
 Dim strAdd As String 
 Dim strFormula As String 
 Dim cbfOne As CubeField 
 
 Set pvtOne = Sheet1.PivotTables(1) 
 
 strAdd = "[MySet]" 
 strFormula = "'{[Product].[All Products].[Food].children}'" 
 
 ' Establish connection with data source if necessary. 
 If Not pvtOne.PivotCache.IsConnected Then pvtOne.PivotCache.MakeConnection 
 
 ' Add a calculated member titled "[MySet]" 
 pvtOne.CalculatedMembers.Add Name:=strAdd, _ 
 Formula:=strFormula, Type:=xlCalculatedSet 
 
 ' Add a set to the CubeField object. 
 Set cbfOne = pvtOne.CubeFields.AddSet(Name:="[MySet]", _ 
 Caption:="My Set") 
 
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.