Запретить сохранение если фаил с таким именем уже существует

Старая форма входа

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

Запретить сохранение если фаил с таким именем уже существует (Макросы/Sub)

Александр7034

Дата: Среда, 03.08.2022, 15:37 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 58

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

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

Нашел для своих целей уже рабочий макрос, его суть в том что бы брал из ячейки C2 имя и его использовал в имени файла при сохранении на сетевой диск.
Что бы по ошибке потом его не перезаписать помогите с доработкой кода. Нужно что бы в случае присутствия файла с таким именем, выходило сообщение - "Такой фаил уже существует"!
И стандартное меню ms офиса перезаписать фаил даже не появлялось, во избежании.
Сам код такой:

[vba]

Код

ub Кнопка38_Щелчок()

   'Объявление переменных
   Dim CellValue As String
   Dim Path As String
   Dim FinalFileName As String

   'Задаём каталог сохранения файла (в данном случае текущий каталог)
   Path = "X:\Fileserver\ОТЧЕТЫ\"

   'Получаем значение ячейки
   CellValue = Range("C2")

   'Формируем итоговый путь и название файла
   FinalFileName = Path & CellValue

  [color=red][b] 'Тут нужен код проверки присутствия файла который нельзя перезаписывать[/b][/color]

   'Сохраняем файл
   ActiveWorkbook.SaveAs Filename:=FinalFileName & ".xlsx", _
                      FileFormat:=xlOpenXMLWorkbook
                      'FileFormat:=xlOpenXMLWorkbookMacroEnabled 'Для сохранения файла с макросом


   'Сообщение с результатом выполнения процедуры
   MsgBox "Файл успешно сохранен с названием - " & CellValue, vbInformation, "Результат"

End Sub

[/vba]

Код

[/vba]Александр7034

Ответить

СообщениеНашел для своих целей уже рабочий макрос, его суть в том что бы брал из ячейки C2 имя и его использовал в имени файла при сохранении на сетевой диск.
Что бы по ошибке потом его не перезаписать помогите с доработкой кода. Нужно что бы в случае присутствия файла с таким именем, выходило сообщение - "Такой фаил уже существует"!
И стандартное меню ms офиса перезаписать фаил даже не появлялось, во избежании.
Сам код такой:

[vba]

Код

[/vba]

Автор - Александр7034
Дата добавления - 03.08.2022 в 15:37

Nic70y

Дата: Среда, 03.08.2022, 17:06 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 9005

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

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

Excel 2010

при сохранении книги записать ее имя в левую ячейку,
перед сохранением сравнивать C2 и левую,
если они равны - не выполнять сохранение.

ЮMoney 41001841029809

Ответить

RAN

Дата: Среда, 03.08.2022, 17:23 | Сообщение № 3

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

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

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

2010

Цитата Александр7034, 03.08.2022 в 15:37, в сообщении № 1 (

)

'Тут нужен код проверки присутствия файла который нельзя перезаписывать

[vba]

Код

If Dir(FinalFileName )<>"" Then Exit Sub

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

Александр7034

Дата: Четверг, 04.08.2022, 08:59 | Сообщение № 4

Группа: Пользователи

Ранг: Участник

Сообщений: 58

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

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

Цитата RAN, 03.08.2022 в 17:23, в сообщении № 3 (

)

If Dir(FinalFileName )<>"" Then Exit Sub

Не работает, досрочное завершения макроса не произошло, все равно выходит меню перезаписи существующего файла. Строку кода вписал так:
[vba]

Код

Sub Кнопка38_Щелчок()

   'Объявление переменных
   Dim CellValue As String
   Dim Path As String
   Dim FinalFileName As String

   'Задаём каталог сохранения файла
   Path = "X:\Fileserver\ОТЧЕТЫ\"

   'Получаем значение ячейки
   CellValue = Range("C2")

   'Формируем итоговый путь и название файла
   FinalFileName = Path & CellValue
  'проверяем наличие файла
   If Dir(FinalFileName) <> "" Then Exit Sub
   'Сохраняем файл
   ActiveWorkbook.SaveAs Filename:=FinalFileName & ".xlsx", _
   FileFormat:=xlOpenXMLWorkbook
   'Сообщение с результатом выполнения процедуры
   MsgBox "Файл успешно сохранен с названием - " & CellValue, vbInformation, "Результат"

End Sub

[/vba]