Saving a file with todays date on the end

[Tempy]

Hi,

Could somebody please help me with some code to save a file, with a
standard file name, but with todays date on the end. e.g.
Combined_14.04.04.xls

Thanks in advance.

Les Stout

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

 

[Bob Phillips]

ACtiveWorkbook.SaveAs Filename:="Combined_" & Format(Date,"yy.mm.dd")

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

 

[ajliaks]

hey!

Try something like this!

Function GetName(Dia As Date) As String
Dim AuxStr As String
AuxStr = Format(Dia, "dd-mmm-yyyy")
GetName = "Combined Automatic Update - " & AuxStr & ".xls"
End Function


Sub SaveUpdate(Route As String)

'make sure the path exists and its right!!!

Route = "C:\Documents and Settings\Administrator\Desktop\updat
automatic\"
Dim Name As String
Dim I As Integer
If Right(Route, 1) <> "\" Then Route = Route & "\"
Name = GetName(Now())
If Dir(Route & Name) <> "" Then
I = 1
Name = Left(Name, Len(Name) - 4)
While Dir(Route & Name & " Version (0" & I & ")" & ".xls") <
""
I = I + 1
Wend
Name = Name & " Version (0" & I & ")" & ".xls"
End If
ActiveWorkbook.SaveCopyAs Route & Name
End Sub

M

 

[Tempy]

Thanks Bob, your suggestion works great.

Les Stout

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

 

[David McRitchie]

For your backup or daily file.

Would suggest that you use four digit year and put that first
then the month then the day of the month so that you can
find them quickly in a directory in alphabetical order.
http://www.mvps.org/dmcritchie/excel/backup.htm

 

[slc]

Bob,

Just want to say "Thanks" as I also benefitted from your solution.

SLC
:

 

[Bob Phillips]

Great, 2 for 1 <vbg>

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)