Excel 2010 VBA - 我正在尝试录制一个将移动两个数据透视表“项目”的宏

Question

...从报表过滤器到图例字段，反之亦然，我收到错误... 这是录制时创建的代码：

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")