Непреднамеренный диалог файлов при обновлении ссылок в Excel 2003 VBA

Question

Я храню наборы взаимосвязанных таблиц Excel 2003 для каждого из проектов моей компании.

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

Например, файл TEMPLATE_ScanProgress.xls ссылается на TEMPLATE_Film_Review.xls.

Я копирую их обоих в 123456_ScanProgress.xls и 123456_Film_Review.xls и обновляю ссылку в 123456_ScanProgress.x.*

Пример кода того, что я делаю:

If Dir("WorkOrder & "_ScanProgress.xls") = "" Then
    FileCopy "TEMPLATE_ScanProgress.xls", WorkOrder & "_ScanProgress.xls"
    Workbooks.Open Filename:=WorkOrder & "_ScanProgress.xls", UpdateLinks:=0
    ActiveWorkbook.ChangeLink "TEMPLATE_Film_Review.xls", _
                              WorkOrder & "_Film_Review.xls", _
                              xlLinkTypeExcelLinks
    Workbooks(WorkOrder & "_ScanProgress.xls").Close SaveChanges:=True
Else
    FileExists = True
    FileExistsWarning_7 = WorkOrder & "_ScanProgress.xls"
End If

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

Answer 1

Попробуйте установить DisplayAlerts в False. DisplayAlerts находится в объекте Application и используется для подавления диалоговых окон, например, при перезаписи файла. Это может работать и в этом случае.