Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Макрос не открывает поврежденную книгу
 
#1
18.12.2014 13:06:37
Есть внешний файл, который после экспорта excelем всегда распознает как битый, мол, "Ошибка в части содержимого в книге такой-то. Выполнить попытку восстановления? Да/Нет". У меня макрос, который копипастит оттуда значения в другую книгу. Но работает он только после того, как я вручную нажму "Да, восстанавливай". Хочется чтобы макрос сам жал на "Да". Как это сделать?
 
 
 
#2
18.12.2014 13:07:34
Отключить лишние вопросы?
Application.DisplayAlerts = False
 
 
 
#3
18.12.2014 13:13:05
так? все равно метод open failed

Код
Sub FromExport()
    Application.DisplayAlerts = False
    ChDir "C:\Users\yartseva\Desktop"
    Workbooks.Open Filename:="C:\Users\yartseva\Desktop\export.xlsx"
 
 
 
#4
18.12.2014 14:35:18
Так попробуйте:

Код
Sub FromExport()
    On Error Resume Next: Err.Clear
    Dim WB As Workbook

    ' пробуем открыть файл штатно
    Set WB = Workbooks.Open(filename:="C:\Users\yartseva\Desktop\export.xlsx")

    If Err Then        ' если не получилось, - открываем в режиме восстановления
        Set WB = Workbooks.Open(filename:="C:\Users\yartseva\Desktop\export.xlsx", CorruptLoad:=xlRepairFile)
    End If
End Sub
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#5
18.12.2014 14:42:41
Игорь, спасибо огромное! вот оно,
Код
CorruptLoad:=xlRepairFile
, буду знать
 
 
 
Страницы: 1
Читают тему
Наверх