时间戳

首页 > 解决方案 > 从一个工作簿复制到另一个工作簿后更新数据透视表数据源

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

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

标签： vbaexcel

解决方案

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

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 个数据透视表。如果不是，则必须将其替换为目标数据透视表名称。

推荐阅读