全部显示

AddSet 方法

向 CubeFields 集合中添加一个新的 CubeField 对象。CubeField 对象与在多维数据集的联机分析处理 (OLAP) 提供程序上定义的集合相对应。

expression   必需。该表达式返回“应用于”列表中的对象之一。

Name   String 类型，必需。在 SETS 方案行集合中的有效名称。

Caption   String 类型，必需。一个字符串，该字符串代表将在数据透视表视图中显示的字段。

说明

如果在参数 Name 中给定名称的集合不存在，AddSet 方法将返回一个运行错误。

示例

本示例中，Microsoft Excel 向 CubeField 对象添加标题为“My Set”的集合。本示例假定 OLAP 数据透视表位于活动工作表上，并假定存在一个标题为“Product”的字段。

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