実行時エラー1004 'PivotTableクラスのPivotFieldsプロパティを取得できません'

Question

このエラーが意味するものはまったくアイデアがありません。コードを使用して、次のいずれかのサブヘッダーの下にあるすべての行を選択しようとしています。ピボットテーブル。実行時エラー1004 "ピボットテーブルクラスのPivotFieldsプロパティを取得できません"が表示されます。ここでは、コードです：JosiePはコメントで言ったように

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

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

End Sub 

Answer 1

は、1004エラーはそのようなobjectがないことを意味し、それは「行ラベル」と呼ばれるそのようなpivot fieldはありませんです。