Vba 在Excel中更新多个数据透视表（不同工作表中）的数据源

现在，我需要每周更新Excel工作表上的所有透视表，以包含报表的最新数据。我在5个工作表（称为报告工作簿）上有21个数据透视表，源数据位于位于共享驱动器上的另一个工作簿（称为数据工作簿）的不同工作表上

“更改数据源”在我的Excel中不可用。因此，我必须手动选择pivot表，并每周多次重新选择源数据

是否有一种简单的方法可以通过VBA同时更新所有透视表的数据源

下面是我的初步尝试。谢谢

Dim pivotable As PivotTable

For Each pivotable In ActiveWorkbook.Worksheets("APAC").PivotTables
         pivotable.ChangePivotCache ActiveWorkbook.PivotCaches.Create _
            (SourceType:=xlDatabase, SourceData:= _
    "EC__:weekly report:for EC BU:2017_:Raw data:[Master Raw.xlsx]VOL Total Data!C1:C21")
Next pivotable

---

因此，这不是一个免费的编码服务网站，你需要加载你的代码attmempt，告诉我们你已经尝试了什么，我们将帮助你。同时，您可以使用internet阅读有关

PivotCache

以及如何设置和

Refresh

的信息。因此，您正在为数据寻址未命名的单元格区域？感谢您的及时回复。我不擅长编码，所以如果我违反了规定，请原谅我。我试图修改其他人的问题，但我甚至不能更新一个透视表。我每次都得到“运行时错误-2147483645”。它似乎找不到共享驱动器，但我找不到如何使VBA引用成为网络位置。再次感谢。