VBA将度量值添加到PowerPivot数据透视表

更新：我想我find了答案，但我一直无法看到是否有办法在Excel 2013中做到这一点。

https://msdn.microsoft.com/en-us/library/office/mt574976.aspx

该链接有关于ModelMeasures.Add方法的文档，但是现在没有真正的好例子可以find。 如果任何人有一个很好的例子，在Excel 2013中使用VBA添加度量模型，请分享作为答案。

最好的例子，我可以find，但无法在Excel 2013中完成： https : //social.msdn.microsoft.com/Forums/en-US/c7d5f69d-b8e3-4823-bbde-61253b64b80e/vba-powerpivot-object-model -adding措施与- modelmeasuresadd？论坛= isvvba

---

---

---

---

原来的post：

我正在尝试使用VBA自动将计算字段添加到powerpivot数据透视表。 我没有经验的VBA。

当我手动添加计算字段使用下面的公式时，我能够看到计算字段添加。 这个VBA代码有什么问题？

这是我的代码：

Sub Macro5() Dim PvtTbl As PivotTable Set PvtTbl = Worksheets("Sheet4").PivotTables("PivotTable6") 'Table1 is part of the PowerPivot data model and I have created a pivot table from Table1 PvtTbl.CalculatedFields.Add "column", "=IF(HASONEVALUE(Table1[TEXT1]), VALUES(Table1[TEXT1]), BLANK())" 'Selecting the pivot table and adding the new calculated field Range("D7").Select ActiveSheet.PivotTables("PivotTable6").AddDataField ActiveSheet.PivotTables( _ "PivotTable6").CubeFields("[Measures].[column]") End Sub 

我得到的错误：

运行时错误“1004”：应用程序定义或对象定义的错误