Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Открыть в Ecxel файл с расширением * .web, Автоматически ответить 'Да' на запрос при открытии файла
 
Всем привет!

Открываю файл Excel методом Application.GetOpenFilename.
Получаю ошибку 1004. Код останавливается.
Ошибка из-за того, что открываемый файл имеет расширение XLS, но выгружен в другом формате (web). Изменить формат выгрузки нельзя.
При ручном открытии такого файла возникает диалог типа:

Если выбираешь Да, то все нормально открывается в Эксель.

Как мне изменить код, чтобы можно было автоматом ответить Да?

Application.DisplayAlerts = False и On Error Resume Next - не помогают, файл не грузится.

Мой код (начало):
  Dim avFiles

   avFiles = Application.GetOpenFilename _
               ("Excel files(*.xls*),*.xls*", 1, "Выбрать Excel файл", , False)
   If VarType(avFiles) = vbBoolean Then
       MsgBox "Файл не выбран", 0, "Выбор файла"
       Exit Sub
   End If
   
 
Dim WB As Workbook
Set WB = Workbooks.Open(avFiles, ReadOnly:=True)
Изменено: Sanja - 15.10.2025 14:35:55
Страницы: 1
Наверх