Открываю файл 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)