Ошибка при попытке кода Excel VBA изменить источник сводной таблицы

Question

Я пришел с этим кодом, и все мои файлы находятся в общей папке:

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 не позволяет мне ставить & "\" &.Есть ли способ это исправить?

Answer 1

Ваш код представляет собой одну строку кода, которая может быть сокращена до этой, поскольку вы ссылаетесь только на ActiveWorkbook:

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