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

我有一个数据透视表文档，所有数据透视表都是从一个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表。

您不能编辑原始表吗？@Jacob-我正在尝试，但当您有大约500万条记录，并且没有足够的RAM复制/粘贴所有这些记录而不崩溃时，这是相当困难的。这将涉及复制/粘贴至少4列500万条记录。在中粘贴这么多数据不是一个好主意：-）@Jacob-可能不是P