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

Question

我要编写一个简单的宏，将源数据更改为相邻工作表中的表，并得到以下错误：

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

该表名为"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链接