Question

用vba实现多个数据透视表的刷新数据

一个工作表中有20个数据透视表,如何用vba语句实现所有的数据透视表刷新?
我已经用录制宏的方式做了个一键式刷新,但vba语句太长,希望大师们能用比较简单的语句实现比如 for next, for each..next等实现

Answer 1

亲，如果都在同一个Sheet中，就这样写：

For Each p In ActiveSheet.PivotTables
p.PivotCache.Refresh
Next

追问

是不是还要定义p?
dim p as pivot table

追答

呵呵，保持好的习惯，定义吧……不定义也一样用
不过您定义的类型不大对，dim p as object