循环数据透视表以重新链接到PowerPivot表

Question

我有一个数据透视表的文档都是从一个PowerPivot表生成的。

我在最后一刻意识到我的PowerPivot表中的数据有问题，并且必须更改PowerPivot表的原始源文件。我现在已经导入了这个新表。

有没有办法（这里允许VBA）我可以将文档中的所有数据透视表重新链接到这个新表而不必手动遍历每个数据透视表？

有人建议我

For each sheet in activesheet.sheets
For each pivot_table in sheet.pivottables 
pivot_table.changepivotcache activeworkbook.pivotcaches.create([sourcetype],[NEW datasource],[version])
Next
Next

但我怀疑这是否有效，因为PowerPivot表不是传统的Excel表格。