Excel 2010 VBA – 我试图logging一个macros，将移动两个数据透视表“项目”

…从报表filter到图例字段和反之亦然，我得到一个错误…这是它创build时的代码logging：

Sub ByPlant() ' ' ByPlant Macro ' ' With ActiveSheet.PivotTables("PivotTable3").PivotFields("Sociedad") .Orientation = xlColumnField .Position = 2 End With With ActiveSheet.PivotTables("PivotTable3").PivotFields("Proveedor") .Orientation = xlPageField .Position = 1 End With End Sub 

当我试图运行它，它给了我这个：

运行时错误1004无法获取工作表类的pivottables属性

它突出了这一行：

 With ActiveSheet.PivotTables("PivotTable3").PivotFields("Sociedad") 

你们能帮忙吗？ 提前致谢！

Answer 1

数据透视表的名称不正确时引发运行时错误。 尝试通过像这样对工作表进行修改来修复它。

 With Worksheets("Sheet1").PivotTables("PivotTable3").PivotFields("Sociedad")