将数据透视表源数据更改为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链接