Método CubeFields.AddSet (Excel)

Adiciona um novo objeto CubeField à coleção CubeFields . O objeto CubeField corresponde a uma coleção definida no provedor OLAP (Online Analytical Processing) do cubo.

Sintaxe

expressão. AddSet (Nome, Legenda)

Expressão Uma variável que representa um objeto CubeFields .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Name	Obrigatório	String	Um nome válido no rowset do esquema SETS.
Caption	Obrigatório	String	Uma sequência de caracteres que representa o campo a ser mostrado na exibição de tabela dinâmica

Valor de retorno

CubeField

Comentários

Se um conjunto com o nome atribuído no argumento Name não existir, o método AddSet retornará um erro em tempo de execução.

Exemplo

Neste exemplo, o Microsoft Excel adiciona um conjunto intitulado My Set ao objeto CubeField . Este exemplo pressupõe que exista um relatório de Tabela Dinâmica OLAP na planilha ativa e que existe um campo intitulado 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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.