Друзья,
Есть макрос, который последовательно открывает и обновляет отчеты
Иногда какой-нибудь отчет либо открыт другим пользователем и доступен только для чтения, либо переименован, и макрос вылетает на нем с ошибкой.
Как сделать, чтобы в таком случае макрос пропускал этот отчет (игнорировал ошибку) и обновлял следующие отчеты (переходил к следующему элементу цикла)?
Я вставлял
в разные участки кода, но результата не добился - после ошибки макрос закрывается, следующие отчеты в списке не обновляет.
Помогите пожалуйста!
Есть макрос, который последовательно открывает и обновляет отчеты
Код |
---|
Private Sub Knopka_obnovlenie_Click() Dim N_posledn As Long N_posledn = Cells(Rows.Count, 1).End(xlUp).Row - 1 'последняя заполненная строка в столбце А MsgBox N_posledn & " отчетов будут обновлены" For i = 1 To N_posledn 'В первый столбец записываем порядковый номер Workbooks.Open Filename:=Cells(i + 1, 1).Text ActiveWorkbook.RefreshAll ActiveWorkbook.Save ActiveWindow.Close 'Конец цикла Next MsgBox "Отчеты обновлены" End Sub |
Как сделать, чтобы в таком случае макрос пропускал этот отчет (игнорировал ошибку) и обновлял следующие отчеты (переходил к следующему элементу цикла)?
Я вставлял
Код |
---|
On Error Resume Next |
Помогите пожалуйста!