在下面的附件截图中,我试图在“一年级”行中获得“短”的高度计数,这将是12.5%。
看起来我需要使用.GetPivotData方法,但我不能为我的生活让它工作。它说我需要PivotTable.GetPivotData([DataField],[Field1],[Item1])。但是,当我尝试
x = pvt.GetPivotData("Count of Height", "First Grade", "Short").Value
我得到运行时错误'1004':应用程序定义或对象定义的错误。
Sub PivotTest()
Dim pvt As PivotTable: Set pvt = Sheets("Sheet2").PivotTables("PivotTable1")
x = pvt.GetPivotData("Count Of Height", "First Grade", "Short").Value
End Sub
我真的看不出我错过了什么。请参见附表中的图像
查看GetPivotData
函数,它需要至少一个参数,即数据字段。然后对于每个后续字段,它需要两个参数,字段名称和字段项。
您编写的代码缺少每个项目的字段名称。
那说,这将工作:
x = pvt.GetPivotData("Count Of Height", "Grade", "First Grade", "Height", "Short").Value