带有查询表作为数据源的数据透视表的VBA

Question

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

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

我收到运行时错误：

  

'1004' - 无法获取pivottable类的pivotfields属性。

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

Answer 1

您的代码似乎无法达到.Calcuation属性。在使用此代码时，尝试使用宏录制器检查您的名称是否有效。

我的猜测是＆＃34;收入总和＆＃34;在你的情况下是这个错误的来源。