EXCEL VBA代码刷新数据透视表

第一种：刷新工作簿中的所有数据透视表，代码如下：Sub 刷新数据()Workbooks("(20131231)余额宝收益己账户统计.xlsm").RefreshAllEnd Sub

1498035782985341.jpg

第二种:刷新特意对应的数据透视表，代码如下，但是要注意数据透视表的名称一定要对应，是正确的自己想要刷新的那个哦。Sub 刷新数据()Workbooks("(20131231)余额宝收益己账户统计.xlsm").Worksheets("透视").PivotTables("数据透视表1").PivotCache.RefreshEnd Sub

1498035797137387.jpg

1498035814116215.jpg