Question

我已创建宏来更改所有工作表中的Pivot源。在我的工作簿中有一个带有CityName的工作表，如'Mumbai'（这是枢轴表）和带有名称'MumbaiData'的源数据表（这是源表），有时我没有源表弹出错误bcz。如何处理此错误以恢复到下一个工作表的数据透视表

我的代码

Sub pivotsourcechange()


Dim ws As Worksheet
Dim pt As PivotTable

For Each ws In ActiveWorkbook.Worksheets
For Each pt In ws.PivotTables
ws.PivotTableWizard SourceType:=xlDatabase, SourceData:=Worksheets(ActiveSheet.Name & " PV").UsedRange
Next pt
Next ws
End Sub

Answer 1

经常使用它通常不是一个好主意，但On Error Resume Next在这里可以正常工作：

Sub pivotsourcechange()

  Dim ws As Worksheet
  Dim pt As PivotTable

  On Error Resume Next
  For Each ws In ActiveWorkbook.Worksheets
    For Each pt In ws.PivotTables
      ws.PivotTableWizard SourceType:=xlDatabase, SourceData:=Worksheets(ActiveSheet.Name & " PV").UsedRange
    Next pt
  Next ws
  On Error Goto 0
End Sub

使用On Error可以完成更多工作，包括转到另一个代码点来处理错误并返回。请查看此链接以获取信息：http://support.microsoft.com/kb/141571

处理Pivot源更新中的错误

1 个答案: