以查询表为数据源的数据透视表的 VBA

Question

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

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

我得到运行时错误：

'1004' - 无法获取数据透视表类的数据透视字段属性。

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

Answer 1

您的代码似乎无法访问.Calcuation 属性。使用此代码时，请尝试使用宏记录器检查您的姓名是否有效。

我的猜测是“收入总和”是您案例中此错误的根源。