我不知道此Excel VBA代码有什么问题,因为它可以在其他工作表中使用。我只更改了名称以引用所需的工作表。
Sheets("Orders EUR in curs").Select
ActiveSheet.PivotTables("orderseur").PivotFields("Centru_Cost").CurrentPage _
= "(All)"
With ActiveSheet.PivotTables("orderseur").PivotFields("Centru_Cost")
.PivotItems("CENTRU DIVERSE").Visible = False
End With
运行时我得到:
1004错误:应用程序定义或对象定义的错误。
当我尝试调试此部分时似乎是问题所在:
ActiveSheet.PivotTables("orderseur").PivotFields("Centru_Cost").CurrentPage _
= "(All)"
不确定是否重要,但我使用Office 2010。
更新:作为最后的选择,我删除了工作表并重新制作了它,现在它可以工作了。仍然我不知道出了什么问题。