Save with current date

[paulie123]

Hi,

I'm using the following macro to save a workbook file;

Public Sub SaveAsD63()
ThisFile = Range("D63").Value
ActiveWorkbook.SaveAs Filename:=ThisFile
End Sub

1. How can this be modified to add the current date, (DD/MM/YYYY) to the filename,
2.How can i save the file to the current directory

Thanks in advance for your help

 

[btadams]

try this:

Public Sub SaveAsD63()
    ThisFile = CurDir & "\" & Range("D63").Value & Replace(Date, "/", "-")
    ActiveWorkbook.SaveAs Filename:=ThisFile
End Sub

 

[Norie]

Is this any use?

Public Sub SaveAsD63()
ThisFile = Range("D63").Value
ActiveWorkbook.SaveAs CurDir & "\" & ThisFile & Format(Date, "ddmmyyyy")
End Sub

By the way you can't have the / in a filename.

 

[paulie123]

thanks, that's solved one half of my problem!! the template file is in a folder on my desktop, but the file saves to the my documents folder. I need to save to the same folder as the template.

Thanks

 

[btadams]

Try this:

Public Sub SaveAsD63()
Dim ThisFile As String

    On Error GoTo errhandler
    ThisFile = "C:\Documents and Settings\<username>\Desktop\<MyFolder>\"
    ThisFile = ThisFile & Range("D63").Value & Replace(Date, "/", "-")
    ActiveWorkbook.SaveAs Filename:=ThisFile
    Exit Sub
errhandler:
    MsgBox "An error occurred. Could not save the file:" & vbCrLf & vbCrLf & ThisFile, vbCritical + vbOKOnly
    On Error GoTo 0
End Sub