Partager via


Propriété PivotTable.CubeFields (Excel)

Renvoie la collection CubeFields . Chaque objet CubeField contient les propriétés de l’élément de champ de cube. En lecture seule.

Syntaxe

expression. CubeFields

Expression Variable qui représente un objet PivotTable .

Exemple

Cet exemple montre comment créer une liste des noms de champs de cube pour les champs de données contenus dans le premier rapport de tableau croisé dynamique OLAP, situé dans la feuille « Sheet1 ».

Set objNewSheet = Worksheets.Add 
objNewSheet.Activate 
intRow = 1 
For Each objCubeFld In Worksheets("Sheet1").PivotTables(1).CubeFields 
 If objCubeFld.Orientation = xlDataField Then 
 objNewSheet.Cells(intRow, 1).Value = objCubeFld.Name 
 intRow = intRow + 1 
 End If 
Next objCubeFld

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.