VBA 从另一个文件复制数据透视表并更改数据源

Question

我有一个宏部分，它会将带有枢轴 table 的 sheet 从另一个文件复制到另一个文件，并将数据范围更改为目标文件中已指示的范围。但是，当我尝试时，一旦出现“下标超出范围”或“无效过程调用或参数错误”，我就会收到两个错误 wbStart 是一个文件，其中只有一个启动宏的按钮和一个要移动的选项卡，我的代码：


Set wb = Workbooks.Open(MyFolder & "\" & MyFile, UpdateLinks:=0)
Set wbStart = ThisWorkbook
wbStart.Sheets("Tabela_COREP").Copy After:=wbMe.Sheets(1)
wb.Sheets("Tabela_COREP").PivotTables("Tabela przestawna1").ChangePivotCache wb.Sheets("Tabela_COREP"). _
PivotCaches.Create(SourceType:=xlDatabase, SourceData:="corep", Version:=6)

Answer 1

下面我展示了一些解决方案：

Set PivTbl = wbMe.Sheets("Tabela_COREP").PivotTables("Tabela przestawna1")
PivTbl.ChangePivotCache ActiveWorkbook. _
        PivotCaches.Create(SourceType:=xlDatabase, SourceData:="corep", _
        Version:=6)

VBA 从另一个文件复制数据透视表并更改数据源

VBA Copy a PivotTable from another file and change the data source

excel

vba

pivot-table