刷新枢轴出现错误
这是我的代码:
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