Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Если имя файла уже занято в папке, то сообщение MsgBox - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Если имя файла уже занято в папке, то сообщение MsgBox
timo64uk Дата: Пятница, 08.11.2024, 11:52 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 104
Репутация: 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]
Без вашей помощи никак.
 
Ответить
СообщениеДобрый день :)
Подскажите, пожалуйста, как вставить в имеющийся код условие:
Если имя файла по пути "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]
Без вашей помощи никак.

Автор - timo64uk
Дата добавления - 08.11.2024 в 11:52
Nic70y Дата: Пятница, 08.11.2024, 12:10 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 9010
Репутация: 2369 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
If Dir("C:\Новая папка\БД.xlsx") <> "" Then
    MsgBox "Удалите файл БД из C:\Новая папка\"
    Exit Sub
End If
[/vba]
или
[vba]
Код
If Dir("C:\Новая папка\БД.xlsx") <> "" Then
    MsgBox "Удалите файл БД из C:\Новая папка\"
Else
    'макрос сохранения
End If
[/vba]


ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Пятница, 08.11.2024, 12:12
 
Ответить
Сообщение[vba]
Код
If Dir("C:\Новая папка\БД.xlsx") <> "" Then
    MsgBox "Удалите файл БД из C:\Новая папка\"
    Exit Sub
End If
[/vba]
или
[vba]
Код
If Dir("C:\Новая папка\БД.xlsx") <> "" Then
    MsgBox "Удалите файл БД из C:\Новая папка\"
Else
    'макрос сохранения
End If
[/vba]

Автор - Nic70y
Дата добавления - 08.11.2024 в 12:10
timo64uk Дата: Пятница, 08.11.2024, 12:49 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 104
Репутация: 1 ±
Замечаний: 0% ±

Office16

Круть. Спасибо.
 
Ответить
Сообщение
Круть. Спасибо.

Автор - timo64uk
Дата добавления - 08.11.2024 в 12:49
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!