excel - ピボット テーブルのソース データを 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