在一个excel文件VBA 2010中刷新所有数据透视表

你好，请你能帮我为Excel 2010当我运行这个简单的代码，我得到错误消息：1004数据透视表类的方法失败

Sub AllWorkbookPivots() Dim pt As PivotTable Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets For Each pt In ws.PivotTables pt.RefreshTable Next pt Next ws End Sub 

Answer 1

试试这个代码：

 Sub AllWorkbookPivots() ActiveWorkbook.RefreshAll() End Sub