[[20190109213436]]　『ピボットテーブルの元データが保存されない』（kt）　ページの最後に飛ぶ

『ピボットテーブルの元データが保存されない』（kt）

VBAでピボットテーブルのデータソースを変更してピボット更新しています。（ちゃんと動きます）
保存後、再度開いてフィルタ操作しようとすると、
「ピボットテーブルレコードは集計元データとともに保存されていません。
レポートを更新するには、データの更新をクリックしてください。」
とメッセージが出てフィルタが使えません。
更新をクリックすると使えるようになります。

ピボットキャッシュにデータが保存され、元データを削除しても、
更新しない限りは、ピボットテーブルの操作は可能という理解だったのですが、
どうしてなのでしょうか？
更新後、マクロなしのエクセルに保存してもだめでした。
手作業でピボットを作成保存後は、フィルタで編集できます。

やりたいことは、元データのシートは削除して（量が多いため）、
ピボットテーブルだけを残しフィルタで編集可能にすることです。

すみませんがご教授いただければと思います。

     'ピボットキャッシュを指定した範囲に変更
    ActiveSheet.PivotTables("ピボットテーブル1").ChangePivotCache ActiveWorkbook. _
        PivotCaches.Create(SourceType:=xlDatabase, _
        SourceData:=ActiveWorkbook.Worksheets("データ").Range("A1").CurrentRegion)

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

これではだめですか。

 ActiveSheet.PivotTables("ピボットテーブル1").SourceData = _
    ActiveWorkbook.Worksheets("データ").Range("A1").CurrentRegion.Address(, , xlR1C1, True)

（マナ） 2019/01/09(水) 22:57

マナさん
ありがとうございます。
やはり更新しないとピボットの編集はできませんでした。
手作業で作ったピボット（編集可）にこのマクロを実行すると
次回開いた時から同じ現象になってしまいます。

（kt） 2019/01/10(木) 09:08

＞手作業で作ったピボット（編集可）にこのマクロを実行すると
＞次回開いた時から同じ現象になってしまいます。

そうですか。
なぜかわかりませんが、こちらでは問題ないのですが…

こちらでも、ChangePivotCacheの場合は、質問にあるメッセージがでます。

他の方からの回答をお待ち下さい。

（マナ） 2019/01/10(木) 20:13

コメント返信：

[ 一覧(最新更新順) ]

[[20190109213436]] 『ピボットテーブルの元データが保存されない』（kt） ページの最後に飛ぶ

[[20190109213436]]　『ピボットテーブルの元データが保存されない』（kt）　ページの最後に飛ぶ