从一个工作簿复制到另一个工作簿后更新数据透视表数据源

Question

我有一个宏，该宏将数据透视表及其在 Workbook A 中的原始源数据复制到 Workbook B 。有没有一种方法可以通过Excel VBA更新源数据，该数据从工作簿B（“字段”）（而不是工作簿A ）获取信息？

这是用于识别工作簿B的代码：

Dim WrkbookB As Workbook
Set WrkbookB = ActiveWorkbook

这是在工作簿A中导入数据透视表（在Sheet1中）和原始源数据（“字段”）的代码：

Dim WrkbookA As Workbook
folder = Application.GetOpenFilename("Excel.xlsx (*.xlsx), *.xlsx," & _
        "Excel.xls (*xls), *xls", 1, "Select Workbook A")
Set WrkbookA= Workbooks.Open(Filename:=folder)
WrkbookA.Sheets("Sheet1").Copy After:=WrkbookB.Sheets(1)
ActiveSheet.Name = "Sheet1"
WrkbookA.Sheets("Fields").Copy After:=WrkbookB.Sheets(1)
WrkbookA.Close SaveChanges:=False

非常感谢您提供有关更改数据源的任何帮助。

Answer 1

这是假设您已成功导入图纸。
您需要的是更改数据透视缓存，我们有一种方法可以做到这一点。
在此之前，您需要确定数据的来源范围：

Dim sourceRange As String
'/* this is a short cut but you can improve this, dynamically getting your source */
sourceRange = WrkbookB.Sheets("Sheet1").UsedRange.Address(, , xlR1C1, True)

一旦有了源，就需要创建缓存：

With Sheets("Field") '/* this is in Workbook B */
  .PivotTables(1).ChangePivotCache WrkbookB. _
    PivotCaches.Create(SourceType:=xlDatabase, SourceData:=sourceRange)
End With

我使用了PivotTables(1)，假设您在字段工作表中只有1个数据透视表。
如果没有，则必须将其替换为目标数据透视表名称。