Название файла по содержимому ячеек. Хелп!

[Sum]

А1 это №договора
А2 это Получатель
Необходимо, чтобы при закрытии книги файл сохранялся как:
№договора Получатель.xls
Изначально, пустая книга, создается из шаблона.

[valerij]

Сообщение от Sum

А1 это №договора
А2 это Получатель
Необходимо, чтобы при закрытии книги файл сохранялся как:
№договора Получатель.xls
Изначально, пустая книга, создается из шаблона.

Поищи в поиске по моему нику, я такую тему создавал.

[valerij]

Сообщение от valerij

Поищи в поиске по моему нику, я такую тему создавал.

!!!!!!!!!!!!!!!!!!!!!!!!!
Здесь

[SAS888]

Если существует возможность изменить шаблон, из которого создается книга, то решить задачу можно вставив в модуль "Эта книга" файла шаблона следующий код:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    Dim FilePath As String, Filename As String
    FilePath = "C:\Temp\" 'Подставьте Ваш путь для сохранения файла
    Filename = Range("A1") & " " & Range("A2") & ".xls" ' Имя файла из ячеек A1 и A2
    
    Application.DisplayAlerts = False 'Отключение всех предупреждений
    ActiveWorkbook.SaveAs Filename:=FilePath & Filename

End Sub

[valerij]

SAS888

А скажи пожалуйста, мона уменьшить разрядность года, поясню
Я применил под "себя", вот код:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim FilePath As String, Filename As String
FilePath = "E:\Users\Valeri\Desktop\" 'Подставьте Ваш путь для сохранения файла
Filename = "На " & Range("C3") & ".xls" ' Имя файла из ячейки С3
Application.DisplayAlerts = False 'Отключение всех предупреждений
ActiveWorkbook.SaveAs Filename:=FilePath & Filename
End Sub

Итак, в ячейки С3, у меня, показывает так "8 апреля 2008 г." именно так, мне и надо, а в строке формул, так "08.04.2008", сохраняется файл под именем "На 08.04.2008.xls", а хотелось бы так: "На 08.04.08.xls" не меняя в С3

[дмидми]

Сообщение от valerij

SAS888
в ячейки С3, у меня, показывает так "8 апреля 2008 г." именно так, мне и надо, а... сохраняется файл под именем "На 08.04.2008.xls", а хотелось бы так: "На 08.04.08.xls" не меняя в С3

Вместо
& Range("C3") &
можно вписать
& Format(Range("C3").Value, "dd/mm/yy") &
или любой другой требуемый формат.

P.S. Sorry, проверять поленился. Надеюсь, заработает

[valerij]

Сообщение от дмидми

Вместо
& Range("C3") &
можно вписать
& Format(Range("C3").Value, "dd/mm/yy") &
или любой другой требуемый формат.

P.S. Sorry, проверять поленился. Надеюсь, заработает

Все точно, отлично, СПАСИБО!