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

Question

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

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

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

该数据透视表名为“ 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链接