刷新枢轴出现错误

这是我的代码:

Sub Atualiza_pivots() ActiveWorkbook.RefreshAll End Sub 

我做简单的代码,刷新工作簿中的所有枢纽,但如果一些枢纽刷新,它不会出现在我身上,所以,我不知道什么时候得到一个错误。 我试着做另一个代码,但它不会出现。

 Sub Atualiza_pivots() On Error GoTo Err ActiveWorkbook.RefreshAll Exit Sub Err: MsgBox "Há pivots com erro, verifique." End Sub 

谢谢。

RefreshAll方法只适用于BackgroundQuery设置为True的情况,试着循环遍历每个表并手动刷新:

 Sub Refresher() Dim wks As Worksheet Dim pvt As PivotTable For Each wks In Worksheets For Each pvt In wks.PivotTables If pvt.PivotCache.BackgroundQuery = False Then pvt.PivotCache.BackgroundQuery = True pvt.RefreshTable pvt.PivotCache.BackgroundQuery = False Else pvt.RefreshTable End If Next pvt Next wks End Sub 

Thx的帮助D_Zab

 Sub Atualiza_pivots() Dim wks As Worksheet Dim pvt As PivotTable For Each wks In Worksheets For Each pvt In wks.PivotTables On Error GoTo Err pvt.PivotCache.Refresh Next pvt Next wks Exit Sub Err: MsgBox pvt & " com erro." End Sub