Нашел для своих целей уже рабочий макрос, его суть в том что бы брал из ячейки 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]