用查询表作为数据源的VBA for Pivot Table

我有一个数据透视表连接到工作簿中的查询作为数据源。 当我尝试写下面的VBA代码时：

ActiveSheet.PivotTables("PivotTable1").PivotFields("Sum of Income").Calculation = xlNormal, 

我得到运行时错误：

'1004' – 无法获得pivottable类的pivotfields属性。

这是因为我的代码中有错误，或者因为我没有使用常规的数据源？

Answer 1

这似乎是你的代码无法达到.Calcuation属性。 尝试使用macroslogging器来检查您使用此代码时，您的名字是否有效。

我的猜测是，“收入总和”是你的情况下这个错误的来源。