Método CubeFields.AddSet (Excel)

Agrega un nuevo objeto CubeField a la colección CubeFields . El objeto CubeField corresponde a un conjunto definido en el proveedor de OLAP (Online Analytical Processing) correspondiente al cubo.

Sintaxis

expresión. AddSet (Nombre, Título)

Expresión Variable que representa un objeto CubeFields .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Name	Obligatorio	String	Nombre válido en el conjunto de filas SETS del esquema.
Caption	Obligatorio	String	Cadena que representa el campo que aparecerá en la vista de tabla dinámica.

Valor devuelto

CubeField

Comentarios

Si no existe un conjunto con el nombre indicado en el argumento Name, el método AddSet devolverá un error en tiempo de ejecución.

Ejemplo:

En este ejemplo, Microsoft Excel agrega un conjunto denominado My Set al objeto CubeField . En este ejemplo se supone que existe un informe de tabla dinámica OLAP en la hoja de cálculo activa y que existe un campo denominado 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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.