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

时间:2018-08-20 19:35:35

标签: excel vba excel-vba

我有一个宏,该宏将数据透视表及其在 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

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

1 个答案:

答案 0 :(得分: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个数据透视表
如果没有,则必须将其替换为目标数据透视表名称。