Подавить окно сообщения об ошибке, когда файл недоступен

Question

У меня есть код, который открывает другую рабочую книгу на основе сегодняшней даты. Я планирую использовать планировщик задач для автоматического запуска, но в случае, если внешняя рабочая книга не найдена, я хочу, чтобы моя рабочая книга автоматически закрывалась, чтобы она не застряла там открытой. Но я сталкиваюсь с сообщением об ошибке `Извините, мы не смогли открыть 'D: \ Users ......."'. В любом случае, чтобы подавить это сообщение об ошибке?

Sub DataGrab()
    On Error GoTo ErrorHandler

    Dim extwbk As Workbook, twb As Workbook

    Set twb = ThisWorkbook
    Set extwbk = Workbooks.Open("D:\Users\Desktop\Report " & Format(Now, "DD-MMM-YYYY") & ".xls*", UpdateLinks:=0)
    '
    'my code
    '   
    Exit Sub

ErrorHandler:
    Application.DisplayAlerts = False
    Application.Quit
    Application.DisplayAlerts = True

End Sub

Answer 1

Вы должны сначала проверить, существует ли рабочая книга extwbk

вы можете сделать это с помощью функции fso.fileexists

если файл не существует, вы можете go обработчику ошибок

пожалуйста, проверьте это изображение со ссылками, которые я использовал.