首页 文章

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

提问于
浏览
1

我想写一个简单的宏来将源数据更改为相邻工作表中的表,我收到以下错误:

运行时错误'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

1 回答

  • 1

    错误消息绝对有效:)

    .ChangePivotCaches 更改为 .ChangePivotCache

    您可能想要查看MSDN链接

相关问题