excel 数据透视

Private Sub Worksheet_Activate()
ActiveSheet.PivotTables("BOOK").PivotCache.Refresh
End Sub

这段代码可以自动更新数据透视表。由于工作中平均一个小时数据源数据就会改变，每天点击8下刷新也很烦。要是能自动刷新就好了。

括号里的BOOK这个表名，就是透视表所在的表名。这个表名怎么获得，不是下边的工作表名，而是从这里获得：

点击透视表区域，在菜单栏点击 选项卡 菜单，如图：

默认名称是“数据透视表1”。