[[20190615193126]] 『ファイルの肥大化』(admin) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『ファイルの肥大化』(admin)

お世話になっております。
以前、マクロでピボットテーブルの更新を相談させていただきました。

データ量は増やしていませんが、
マクロを実行するとファイル容量が増えます。

考えられる原因は何でしょうか?

ブックレイアウト
シート「実績」にあるテーブルデータを参照して
ピボットテーブルを複数作成してあります。

コード
Sub 更新()

   Dim テーブル範囲 As String
   Dim ws As Worksheet
   Dim pvt As PivotTable

   テーブル範囲 = Worksheets("実績").Range("D3").ListObject.Range.Address(, , xlR1C1, True)

   For Each ws In Worksheets
        For Each pvt In ws.PivotTables
            pvt.SourceData = テーブル範囲
            pvt.RefreshTable
        Next
   Next

End Sub

ご教示お願いします

< 使用 Excel:Excel2016、使用 OS:Windows10 >


再現手順を示していただけますか
新規の小さいデータを使用しても再現しますか

(マナ) 2019/06/15(土) 20:44


 >ピボットテーブルを複数作成
 コードを見る限り SourceData は同じですが、キャッシュの異なるピボットテーブルですよね。

 容量削減するには、同じキャッシュを使います。
 SourceDataが一つなら 全て PVT.CacheIndex=1 で良かったと思います。

(チオチモリン) 2019/06/15(土) 22:30


これでしょうか。
元はなかったのに…

>pvt.RefreshTable

(マナ) 2019/06/15(土) 22:46


返信遅くなり申し訳ありません。

>pvt.RefreshTableでした。

知識不足で、「データ変更したら更新もしないとだな」と思いコードを追加したことが原因でした。

申し訳ありませんとともにありがとうございました。

勉強しながら進めますので、今後もよろしくお願いします。
(admin) 2019/06/16(日) 09:57


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.