[[20220106143623]] 『VBAでピボットテーブルの自動更新』(ノリえもん) ページの最後に飛ぶ

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

 

『VBAでピボットテーブルの自動更新』(ノリえもん)

VBAでピポットテーブルの更新をしたいのですが、
下記の記述の3行目で「424エラー オブジェクトが必要です」となります。
意味がよくわかりません。
助けてください。よろしくお願いいたします。

[ソースデータ]シートを元データ(行範囲が可変)として
ピボットテーブル2を更新します。

Dim A As Range
Set A = Worksheets("ソースデータ").Range("A1").CurrentRegion
ActiveSheet.PivotTables(2).ChangePivotCache _ ActiveWorkbook.PivotCaches.Create(xlDatabase, A)

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


こちらでは、正常動作して、
そのエラーコードを出すような状況に思い至りません。

元にもどって、特定範囲のデータ範囲を対象とする
データソース変更の動作をマクロ記録してみてはいかがですか?
どうなりますか?
それをもとに、Rangeオブジェクトを指定するよう
徐々に修正していったらよいのでは?
(γ) 2022/01/06(木) 16:23


 想像出来るエラー原因は、
 ピボットテーブルのあるシートがアクティブになっていないとか
 "ピボットテーブル2"という名前のピボットテーブルは ActiveSheet.PivotTables(2) ではない
  (ピボットテーブル1という名前のピボットテーブルを削除したとか)
 でしょうかね
(´・ω・`) 2022/01/06(木) 17:28

 >424エラー オブジェクトが必要です
 これって、オブジェクト変数じゃない変数にプロパティを記述した場合に出るエラーですよね。

    Sub test()
        Dim v As Variant
        Set v = Cells(1, 1)
        Debug.Print v.Address
        Let v = Cells(1, 1)
        Debug.Print v.Address '←ここ
    End Sub

 う〜ん。再現できない...

(白茶) 2022/01/06(木) 18:03


コメント返信:

[ 一覧(最新更新順) ]


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