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

Question

我有一个宏，可以将工作簿 A 中的数据透视表及其原始源数据复制到工作簿 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 个数据透视表。如果不是，则必须将其替换为目标数据透视表名称。