ThisWorkbook.RefreshAll со ссылкой на предыдущее имя файла

Question

Я завершаю этот макрос, поэтому я изменил имя моего файла с «Tool_ test .xlsm» на «Tool_ Final .xlsm.»

ЗатемЯ заметил что-то странное.Каждый модуль с таким кодом:

Thisworkbook.RefreshAll

открывает диалоговое окно «Извините, мы не смогли найти» ... filepath ... \ Tool_ test .xlsm.Какой путь / имя старого файла.

Один из модулей полностью следующий:

Sub Clear_All()

If MsgBox("Erase all the data imported?", vbYesNo) = vbNo Then Exit Sub

Sheets("Doc. Currency").Range("C135:N200").ClearContents
Sheets("Auto19").Range("A3:H531").ClearContents
Sheets("F08").Range("A2:E201").ClearContents

ThisWorkbook.RefreshAll

End Sub

Ничего более. Почему он продолжает ссылаться на старый файл?. "отлично работает везде, в том числе и в этом модуле, когда я тестировал его. Кажется, что причиной проблемы является" refreshall ", но я не могу понять, почему.

Answer 1

Обновление:

Проблема не в коде.

Проблема заключалась в том, что сводные таблицы сохраняли свою старую ссылку, даже когда имя файла было изменено.Решением было выбрать сводку> проанализировать> изменить источник данных> переназначить диапазон.

Если вы планируете часто менять имя файла, я думаю, что лучше создать макрос для воспроизведения сводной таблицы или вручную обновить ссылку на диапазон.

Пожалуйста, сочтите, что эта проблема решена!И спасибо за комментарии!