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

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

举报该问题

推荐答案 2014-06-16

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

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

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

追答

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

温馨提示：答案为网友推荐，仅供参考

当前网址：http://66.wendadaohang.com/zd/UpinnpDx2Ux9spUiD29.html

相似回答

vba 怎么刷新数据透视表答：但是根据实际情况，需要修改一下，因为 ActiveSheet 是经常变化的，改成以下语法试试：Sheet1.PivotTables("数据透视表").PivotCache.Refresh 或者 Worksheets("Sheet1").PivotTables("数据透视表").PivotCache.Refresh 以上 Sheet1 要根据你的数据透视表所在工作表改动一下。

VBA自动刷新数据透视表答：1.按Alt+F11，打开VBA编辑器。2.在“工程”窗口中，双击包含数据透视表的工作表，如此处的“Sheet1”表。3.在右侧代码窗口中输入下列代码：Private Sub Worksheet_Activate()Sheets("Sheet1").PivotTables("数据透视表1").RefreshTableEnd Sub 4.关闭VBA编辑器。二、打开工作簿时自动刷新数据透视表 ...

用vba实现多个数据透视表的刷新数据答：亲，如果都在同一个Sheet中，就这样写：For Each p In ActiveSheet.PivotTables p.PivotCache.Refresh Next

...点击该按钮则所有透视表就刷新数据?求详细的VBA代码~!答：).PivotCache.RefreshEnd Sub透视表所在工作表.pivotables("透视表名称").pivotcache.refresh Private Sub Worksheet_SelectionChange(ByVal Target As Range) Sheet1.PivotTables("数据透视表1").PivotCache.RefreshEnd Sub在源数据中定义这个更好，每修改完一个单元格数据后，自动刷新透视表。

Excel 数据透视表中的刷新,用VBA应该怎么做答：更新透视表数据源和刷新~With ActiveSheet.PivotTables("Table1") .ChangePivotCache ActiveWorkbook.PivotCaches.Create _ (SourceType:=xlDatabase, SourceData:=ActiveWorkbook.Sheets(1).Range("A1").CurrentRegion) .PivotCache.Refresh '该句为刷新End With ...

vba 刷新数据透视表的功能答：刷新前请确保当前激活的工作表中存在名为 "Sheet3" 的数据透视表，以下是调整后的代码以供参考：Private Sub Worksheet_Activate() Dim pvtTable As PivotTable On Error Resume Next Set pvtTable = ActiveSheet.PivotTables("Sheet3") If Not (pvtTable Is Nothing) Then pvtTable...

大家正在搜

vba实现数据透视表的功能 vba实现数据透视表 vba刷新数据透视表如何用vba代替数据透视表 vba如何获取数据透视表的值如何启用vba设计数据透视表 vba 数据透视表查找表头数据透视表的vba运行失败如何启用vba启动数据透视表

vba 怎么刷新数据透视表

Excel 数据透视表中的刷新，用VBA应该怎么做

VBA自动刷新数据透视表

vba 刷新数据透视表的功能

自动更新部分数据透视表的VBA代码

数据透视表的数据源需要每天更新，数据量可能有很大变动，怎么操...

用VBA实现插入数据透视表（程序报错）

EXCEL VBA 数据透视表怎么对一个PivotTabl...