Проверка существования файла перед выполнением операций с ним

Пользователь

Сообщений: 17 Регистрация: 16.10.2020

19.10.2020 14:12:01

Сценарий макроса: открывает файл с именем из ячейки, удаляет столбец, сохраняет как, закрывает. Открывает следующий с тем же сценарием.
Если файл не найден, то макрос удаляет столбец в активной книге с макросом. Мне нужен следующий сценарий : если файл не найден, все операции пропускаются до открытия следующего файла.
В интернетах нашел способ и выглядит он так : перед строкой с вероятной ошибкой указать On Error GoTo label1, перед нужной процедурой указать label1: Resume Next.
Но выходит так, что если файл не найден, то процедура выполняется на активном листе с макросом ( ошибку не показывает).
Файл прикрепляю. Буду ооочень благодарен за совет !

Прикрепленные файлы

help.xlsm (24.38 КБ)

Александр Макаров

Пользователь

Сообщений: 141 Регистрация: 01.01.1970

19.10.2020 16:57:52

Применительно к вашему макросу:

Код

filename1 = ws.Range("e14")
filename2 = ws.Range("e15")
Path = ActiveWorkbook.Path & "\" & ws.Range("i14") & "\"

If Dir(ThisWorkbook.Path & filename1) <> "" Then
    Workbooks.Open ThisWorkbook.Path & filename1, Local:=True
    Columns("E").Delete
    ActiveWorkbook.SaveAs Path & filename1, FileFormat:=xlOpenXMLWorkbook 
    ActiveWorkbook.Close SaveChanges:=False 
End If
If Dir(ThisWorkbook.Path & filename2) <> "" Then
    Workbooks.Open ThisWorkbook.Path & filename2, Local:=True
    Columns("G").Delete
    ActiveWorkbook.SaveAs Path & filename2, FileFormat:=xlOpenXMLWorkbook
    ActiveWorkbook.Close SaveChanges:=False 
End If

Изменено: Александр Макаров - 19.10.2020 16:59:33

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	#3 19.10.2020 17:11:47 Предложите названиетемы , по которому будет понятна задача макроса. Модераторы заменят

Александр Макаров Пользователь Сообщений: 141 Регистрация: 01.01.1970	#4 19.10.2020 17:15:51 Тема: Проверка существования файла перед выполнением операций с ним

Андрей Вайцеховский Пользователь Сообщений: 17 Регистрация: 16.10.2020	#5 19.10.2020 17:26:25 Спасибо большое, все работает! Надо разбираться глубже с "If" и "Then"