在数据透视表中添加计算字段时出错

Question

我创建了一个数据透视表，我想添加一个计算字段。我写了一些代码试图让它工作，但它一直说无法获得数据透视表类的PivotFields属性。行中出现错误

With .PivotFields("Diff")

与添加新计算字段相关的代码行位于

之下

.CalculatedFields.Add "Diff", "= ('Monthly Forecasted Cost'- 'Actual Cost')"

 With .PivotFields("Diff")
 .Orientation = xlDataField
 .Position = 11
 End With