时间戳

首页 > 解决方案 > 尝试使用 Excel VBA 代码更改数据透视表的源时出错

excel - 尝试使用 Excel VBA 代码更改数据透视表的源时出错

问题描述

我想出了这段代码，我的所有文件都在一个共享文件夹中：

ActiveSheet.PivotTables("pivottable1").ChangePivotCache_
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase,_
SourceData:=ActiveWorkbook.Path & "\" & "[" & ActiveWorkbook.Name & "]" &_
Sheets("RawPDTBKK").Name & "!" &_
Sheets("RawPDTBKK").Range("a1").CurrentRegion.Address)

但是，事实证明 Excel VBA 不允许我放 & "\" &。有没有什么办法解决这一问题？

标签： excelvbapivot-table

解决方案

您的代码是一个单独的代码行，可以缩短为此，因为您只引用ActiveWorkbook：

ActiveSheet.PivotTables("pivottable1").ChangePivotCache _
ActiveWorkbook.PivotCaches.Create( _
    SourceType:=xlDatabase, _
    SourceData:=ActiveWorkbook.Sheets("RawPDTBKK").Range("A1").CurrentRegion)

推荐阅读