我创建了宏,它将刷新工作表中的所有数据透视表。相同的代码在一张纸上有效,但在另一张纸上无效。我尝试在调试模式下运行它,它对于前几张表工作正常,但在中间的一个表上出现错误:
运行时错误“1004”:数据透视表类的 RefreshTable 方法
失败的。
此工作表中有 20 个数据透视表,但在有效的数据透视表上有 26 个。我们将非常感谢您的帮助。
Sub Refresh_Pivots2()
Dim PL As PivotTable
Worksheets("Incidents Pivots").Activate
For Each PL In ActiveSheet.PivotTables
PL.RefreshTable
Next PL
End Sub
我刚刚尝试了另一个代码
Sub Refresh_Incidents()
Worksheets("Incidents Pivots").Activate
Dim A
A = Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20")
For i = 0 To 19
ActiveSheet.PivotTables(A(i)).RefreshTable
Next i
End Sub
如果我从 i=0 开始,它会给出一个错误,但是当它切换到 i=1 时它会起作用。任何想法这张表有什么问题。我可以手动刷新它。