Private Sub Worksheet_Activate() ActiveSheet.PivotTables("BOOK").PivotCache.Refresh End Sub
这段代码可以自动更新数据透视表。由于工作中平均一个小时数据源数据就会改变，每天点击8下刷新也很烦。要是能自动刷新就好了。
括号里的BOOK这个表名，就是透视表所在的表名。这个表名怎么获得，不是下边的工作表名，而是从这里获得：
点击透视表区域，在菜单栏点击 选项卡 菜单，如图：
默认名称是“数据透视表1”。
原文：http://www.cnblogs.com/dodocie/p/7085602.html