excel - 将数据透视表源数据更改为 Excel 表

Question

我正在尝试编写一个简单的宏来将源数据更改为相邻工作表中的表，但出现以下错误：

运行时错误“438”：对象不支持此属性或方法

该表名为“OEE 2013”​​，位于工作表“2013 OEE 数据”中

数据透视表名为“PivotTable1”，位于工作表“2013 OEE Pivot”中

数据透视表当前引用外部工作簿中的数据，我想保持相同的格式并引用表“OEE 2013”​​创建新的数据透视表可能更容易，但更改源数据似乎是我更快的解决方案. 这将作为更大宏的一部分定期重复。

Sub change_pivot_source()

    Worksheets("2013 OEE Pivot").PivotTables("PivotTable1").ChangePivotCaches _
      ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, _
      SourceData:="OEE_2013", Version:=xlPivotTableVersion14)


End Sub

Answer 1

错误信息绝对有效:)

更改.ChangePivotCaches为.ChangePivotCache

您可能想查看MSDN链接