Как сохранить файл что бы название было по дате и времени

[Kesar]

Подскажите как написать макрос что бы автоматом сохранял файл в названии была дата и время

[GSerg]

Какая имеено часть вопроса вызывает затруднения?
Или попыток осуществить задуманное вообще предпринято не было?

[Kesar]

было вот например
Sub Сохр()
ChDir "D:\1\Мониторинг
ActiveWorkbook.SaveAs Filename:=DateValue,FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

[GSerg]

И как, что получалось в результате?

[Pavel55]

В DateValue, наверное, есть двоеточия (т.е. знаки, которые запрещены для использования в имени файла <> | ? : [ ] * )

[Pavel55]

А если так?
1. Если вы хотите получить название файла такое: Книга1_11.04.2007 16.12.41.xls

Код: Выделить всё

Option Explicit
Sub Macro1()
    Dim iName$, iDate$
    iDate = Now 'узнаем текущую дату и время
    iDate = Replace(iDate, ":", ".") 'заменяем двоеточия на точку
    iName = ActiveWorkbook.Name 'узнаём имя файла
    iName = Left(iName, Len(iName) - 4) 'убираем расширение файла
    iName = "C:\Temp\" & iName & "_" & iDate & ".xls" 'полное имя файла
    ActiveWorkbook.SaveAs Filename:=iName, FileFormat:=xlNormal, Password:="", _
        WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

2. Если вы хотите получить название файл, например, такое 11.04.2007 16.26.23.xls

Код: Выделить всё

Option Explicit
Sub Macro2()
    Dim iName$, iDate$
    iDate = Now 'узнаем текущую дату и время
    iDate = Replace(iDate, ":", ".") 'заменяем двоеточия на точку
    iName = "C:\Temp\" & iDate & ".xls" 'полное имя файла
    ActiveWorkbook.SaveAs Filename:=iName, FileFormat:=xlNormal, Password:="", _
        WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

Другие участники может что-нибудь проще подскажут

[GSerg]

Ага.
Например, что заставлять думать полезнее, чем давать на блюдечке.
Ладно, раз уж. Format$(now, "dd\.mm\.yyyy hh-mm")

[Pavel55]

Ну, он хотя бы попытался )

P.S. Я вот думаю, а если в Format развернуть слеши, то точки у месяца и года не надо, наверное, будет ставить
Format$(Now, "dd/mm/yyyy hh.mm.ss")

[GSerg]

Неверно.
У меня обратные слеши, используемые для эскейпа следующего символа (точки).
У тебя прямые, которые будут заменены на символ разделения даты на текущей локали (который может быть недопустимым для пути).

[Pavel55]

а )
да, интересно )

[bvitaly]

А как выделить только месяц, чтоб получилось Книга1_Май.xls? И после сохранения продолжать работать с первым файлом?

[alibek]

1. Стать на Format
2. Нажать F1
3. Читать