実行時エラー1004「ピボットテーブルクラスのピボットフィールドプロパティを取得できません」

Question

このエラーが何を意味するのか、私にはまったくわかりません...コードを使用して、ピボットテーブルのサブヘッダーの1つの下にあるすべての行を選択しようとしています。 「ピボットテーブルクラスのPivotFieldsプロパティを取得できません」という実行時エラー1004が発生します。コードは次のとおりです。

 Sub ttest()
 Dim pt As PivotTable
 Set pt = Sheets("Report").PivotTables("PivotTable1")

 pt.PivotFields("Row Labels").PivotItems("CL").DataRange.Select

 End Sub

Answer 1

JosiePがコメントで述べたように、1004エラーはそのようなobjectがないこと、つまり「行ラベル」と呼ばれるpivot fieldがないことを意味します。