Если имя файла уже занято в папке, то сообщение MsgBox

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Если имя файла уже занято в папке, то сообщение MsgBox (Макросы/Sub)

timo64uk

Дата: Пятница, 08.11.2024, 11:52 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 121

Репутация: 1 ±

Замечаний: 0% ±

Office16

Добрый день

Подскажите, пожалуйста, как вставить в имеющийся код условие:
Если имя файла по пути "C:\Новая папка\БД.xlsx" занято, то выход из кода и сообщение "Удалите файл БД из C:\Новая папка\"
Иначе сохранить "C:\Новая папка\БД.xlsx
[vba]

Код

    Dim lr As Long
    Dim r As Range
    lr = Cells(Rows.Count, "A").End(xlUp).Row
    Set r = Range("A8:AI8").Resize(lr)
    AutoFilterMode = False
    r.AutoFilter Field:=1, Criteria1:="Строй", Operator:=xlAnd
    ' AutoFilterMode = False
    Cells.Copy
    Workbooks.Add
    ActiveSheet.Paste
    ActiveSheet.Name = "Report"
    ActiveWorkbook.SaveAs ("C:\Новая папка\БД.xlsx")

[/vba]
Без вашей помощи никак.