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 (Name, Caption)

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, Microsoft Excel 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.