第一种：刷新工作簿中的所有数据透视表，代码如下：

Sub 刷新数据()

    Workbooks("(20131231)余额宝收益己账户统计.xlsm").RefreshAll

End Sub

第二种:刷新特意对应的数据透视表，代码如下，但是要注意数据透视表的名称一定要对应，是正确的自己想要刷新的那个哦。

Sub 刷新数据()

    Workbooks("(20131231)余额宝收益己账户统计.xlsm").Worksheets("透视").PivotTables("数据透视表1").PivotCache.Refresh

End Sub