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

Question

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

＆＃34;更改数据源＆＃34;在我的Excel上不可用。因此，我必须在数据透视表上手动选择并每周多次重新选择源数据。

是否有一种简单的方法可以通过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