vba - Excel VBA：ランタイムエラー13-ピボットアイテムの折りたたみ中に型が一致しません

Question

VBAを使用してループを介してピボットアイテムを折りたたむようにしています。以下はコードです：

Dim oPI As PivotItems

For Each oPI In ActiveSheet.PivotTables("PivotTable4").PivotFields("TAG").PivotItems
oPI.ShowDetail = False
Next oPI

ランタイムエラー13-「タイプの不一致」エラーが発生します。このコードの何が問題なのかわからない。誰かが私にどんな変更を加えるべきか教えてもらえますか？

Answer 1

の宣言を置き換えますoPi。

OPi をオブジェクトとして薄暗くする

あなたが望むものを達成します。For Eachループには Object/Variant 型の変数が必要です。