Excel) (PivotField.CubeField 属性

返回指定数据透视表字段下级的 CubeField 对象。 此为只读属性。

语法

表达式。CubeField

表达式 表示 PivotField 对象的变量。

示例

此示例为第一个工作表上基于 OLAP) 的联机分析处理 (数据透视表中的所有层次结构字段创建多维数据集字段名称列表。 此示例假定第一个工作表中存在数据透视表。

Sub UseCubeField() 
 
 Dim objNewSheet As Worksheet 
 Set objNewSheet = Worksheets.Add 
 objNewSheet.Activate 
 intRow = 1 
 
 For Each objPF in _ 
 Worksheets(1).PivotTables(1).PivotFields 
 If objPF.CubeField.CubeFieldType = xlHierarchy Then 
 objNewSheet.Cells(intRow, 1).Value = objPF.Name 
 intRow = intRow + 1 
 End If 
 Next objPF 
 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。