поместить дату в название файла

[das19]

добрый день!
в ячейке записана дата, как сохранить рабочую книгу, чтобы название содержало дату? например, "данные 07.11.1917.xls"

спасибо!

[staniiislav]

Sub SaveCells()
Dim idate As Date, Fname As String
Dim Wsh As Worksheet, wb As Object
Application.ScreenUpdating = False
Set Wsh = ThisWorkbook.ActiveSheet: idate = [C4] 'ячейка с датой
If MsgBox("Сохранить в Архив?", vbYesNo, "Подтверждение") = vbYes Then
    Fname = ThisWorkbook.Path & "\Архив" 'создает папку архив
    On Error Resume Next
    MkDir Fname
    If idate <> Empty Then
        If Wsh.Visible = -1 Then
            Wsh.Copy
            Set wb = ActiveWorkbook
            With wb
                .SaveAs Fname _
                          & "\" & Wsh.Name & " (" & idate & ").xls", xlNormal
                .Close
            End With
        End If
        MsgBox "Лист " & Wsh.Name & " в виде файла сохранен в папку " & Fname
    End If
End If
Application.ScreenUpdating = True
End Sub

где-то так

[das19]

спасибо, но этот код у меня не работает( вполне возможно, что из-за того, что странно системные время и дата выставляются. если попроще, то у меня работают эти две строчки:

file_name = CStr(Day(i_date.Value) & "." & Month(i_date.Value) & "." & Year(i_date.Value)) 
wb.SaveAs Filename:="Отчет " & file_name & ".xls"

можно ли это записать как-нибудь правильнее и элегантнее?

п.с. сорри за глупый вопрос, синтаксиса языка пока совсем не знаю, в процессе)

[AKSENOV048]

das19 выложите полный текст кода

[staniiislav]

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

спасибо, но этот код у меня не работает( вполне возможно, что из-за того, что странно системные время и дата выставляются. если попроще, то у меня работают эти две строчки:

file_name = CStr(Day(i_date.Value) & "." & Month(i_date.Value) & "." & Year(i_date.Value)) 
wb.SaveAs Filename:="Отчет " & file_name & ".xls"

можно ли это записать как-нибудь правильнее и элегантнее?

п.с. сорри за глупый вопрос, синтаксиса языка пока совсем не знаю, в процессе)

скиньте пример где не работает код, который я Вам дал.

[das19]

AKSENOV048, вот такой код. просто создаем книгу и сохраняем ее.

Public Sub save_our_sheets()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim file_name As String
    Dim i_date As Date
    Set i_date = Cells(3, 6) 'берем дату из ячейки
    
    Set wb = Workbooks.Add
    wb.Worksheets(1).Name = "много важных данных"
    
    file_name = CStr(Day(i_date.Value) & "." & Month(i_date.Value) & "." & Year(i_date.Value)) 'имя файла
    wb.SaveAs Filename:="Отчет" & file_name & ".xls"
End Sub

меня смущает формирование имени файла. или нормально?

staniiislav,
я просто скопировал ваш код. он создает папку, а файл сохраняет как Книга1.хлс и т.п. я подозреваю, что это из-за непонятного формата дат, как принято у нас в компании. все даты он представляет как 09/05/1945, именно с палками, а не с точкам. может именно поэтому получается некорректное имя? в любом случае, ваш код оказался очень полезен, спасибо.

[staniiislav]

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

AKSENOV048, вот такой код. просто создаем книгу и сохраняем ее.

Public Sub save_our_sheets()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim file_name As String
    Dim i_date As Date
    Set i_date = Cells(3, 6) 'берем дату из ячейки
    
    Set wb = Workbooks.Add
    wb.Worksheets(1).Name = "много важных данных"
    
    file_name = CStr(Day(i_date.Value) & "." & Month(i_date.Value) & "." & Year(i_date.Value)) 'имя файла
    wb.SaveAs Filename:="Отчет" & file_name & ".xls"
End Sub

меня смущает формирование имени файла. или нормально?

staniiislav,
я просто скопировал ваш код. он создает папку, а файл сохраняет как Книга1.хлс и т.п. я подозреваю, что это из-за непонятного формата дат, как принято у нас в компании. все даты он представляет как 09/05/1945, именно с палками, а не с точкам. может именно поэтому получается некорректное имя? в любом случае, ваш код оказался очень полезен, спасибо.

скиньте пример, мне самому интересно почему так!