excel - 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 无法获取工作表类的数据透视表属性

它突出显示了这一行：

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

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

Answer 1

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

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