Excel VBA-On.refresh（）函数

我想执行一系列函数，每次刷新我在同一个excel文件上的web查询时。web查询每10分钟获取一次数据，数据上有一个轴

如何编写代码，以便在每次自动刷新时刷新透视？所以我真正需要的是-

OnRefresh {

更新数据透视表

}

谢谢

使用以下代码数据透视缓存。刷新 例如

如果愿意，可以用PivotTableName替换1。在由获取网页触发的事件中调用这一行，或者作为执行刷新的代码的最后一行

Worksheets(1).PivotTables(1).PivotCache.Refresh