透视表使用Excel VBA展开和删除或显示/隐藏详细信息

我试图使用下面的命令隐藏透视表列的详细信息。 谁能告诉我这个错误吗

Thx

---

终于发现了愚蠢的错误

Dim c As Range
     For Each c In myfile.Sheets(3).Range("A1:A20000")
         With c
            If Left(c.Value, 2) = "FA" Then ActiveSheet.PivotTables(1).PivotFields("Ref 1").PivotItems(c.Value).ShowDetail = False
        End With
     Next

---

你有错误吗？出现什么错误？无法获取工作表类的PivotTables属性。是否确定活动工作表中有同名的PivotTables？如果工作表上只有一个表，请尝试

ActiveSheet.PivotTables（1）

。现在出现了一个错误，无法获取PivotField类的PivotItems属性可能您没有名为“Ref 1”的pivot字段？

Dim c As Range
     For Each c In myfile.Sheets(3).Range("A1:A20000")
         With c
            If Left(c.Value, 2) = "FA" Then ActiveSheet.PivotTables(1).PivotFields("Ref 1").PivotItems(c.Value).ShowDetail = False
        End With
     Next