CubeFields.AddSet 方法 (Excel)

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

语法

表达式。AddSet (Name、 Caption)

表达 一个代表 CubeFields 对象的变量。

参数

名称	必需/可选	数据类型	说明
Name	必需	字符串	SETS 架构行集中的有效名称。
Caption	必需	字符串	一个字符串，该字符串表示将在数据透视表视图中显示的字段。

返回值

CubeField

备注

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

示例

在此示例中，Microsoft Excel 将标题为“我的集”的集添加到 CubeField 对象。 本示例假定活动工作表上存在 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

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。