求助：急！求点击保存时自动刷新数据透视表的代码

taotao1983

不用关闭工作簿，不用打开该数据透视表，只是在改变数据时就自动刷新，或者是点击保存按钮后自动刷新。

不怎么会VBA，这事又很急，所以请各位帮帮忙。。。

xing

在Thisworkbook的 Workbook_BeforeSave 中加入更新的代码.试试.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveSheet.PivotTables("数据透视表").PivotCache.Refresh
End Sub

taotao1983

我试了，可以。。谢谢。不过还有一个问题，我有好多个数据透视表，如何批量查出它们的名称啊？

yanjie

显示数据透视表名称和地址

Sub 显示数据透视表名称()
Dim i%, pt As PivotTable
For Each pt In Worksheets("sheet1").PivotTables
i = 0
Cells(1 + i, 6).Value = pt.Name
Cells(1 + i, 7).Value = pt.TableRange2.Address
i = i + 1
Next
Range("f:g").Columns.AutoFit
End Sub