Excel 2010 VBA-我正在尝试记录一个宏，该宏将移动两个数据透视表；项目“；

…从报表过滤器到图例字段和viceversa，我得到一个错误。。。 这是它在录制时创建的代码：

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

---

你们能帮忙吗？提前谢谢

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

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

---

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

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

---

我认为，如果您有错误的透视表名称，它将抛出该错误。尝试限定工作表。像

工作表（“Sheet1”）。数据透视表（“PivotTable3”）。数据透视字段（“Sociedad”）

@deusxmach1na这正是问题所在。非常感谢你！编辑：我如何将您的答案标记为helpfull？我是新来的…@deusxmach1na，把你的评论作为答案，这样它就可以被标记为suchI，如果你有错误的Pivot表名，它会抛出那个错误。尝试限定工作表。像

工作表（“Sheet1”）。数据透视表（“PivotTable3”）。数据透视字段（“Sociedad”）

@deusxmach1na这正是问题所在。非常感谢你！编辑：我如何将您的答案标记为helpfull？我是新来的…@deusxmach1na，把你的评论作为答案，这样它就可以被标记为这样