CubeFields.AddSet, méthode (Excel)

Article
04/07/2023

Ajoute un nouvel objet CubeField à la collection CubeFields . L'objet CubeField correspond à un ensemble défini sur le fournisseur OLAP (Online Analytical Processing) pour le cube.

Syntaxe

expression. AddSet (Name, Caption)

Expression Variable qui représente un objet CubeFields .

Parameters

Nom	Requis/Facultatif	Type de données	Description
Name	Obligatoire	String	Nom valide dans l'ensemble de lignes de schéma SETS.
Caption	Requis	String	Chaîne représentant le champ qui sera affiché dans la vue de tableau croisé dynamique.

Valeur renvoyée

CubeField

Remarques

Si un ensemble avec un nom donné n'existe pas dans l'argument Nom, la méthode AddSet renvoie une erreur d'exécution.

Exemple

Dans cet exemple, Microsoft Excel ajoute un jeu intitulé My Set à l’objet CubeField . Cet exemple suppose qu’un rapport de tableau croisé dynamique OLAP existe dans la feuille de calcul active et qu’un champ intitulé Produit existe.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

Partager via