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