Files SAVE AS

  • Thread starter Thread starter Rpettis31
  • Start date Start date
R

Rpettis31

I am trying to write a macro that will allow me to save a file as a "myfile,
plus the current date in xls. The macro has already converted the "myfile"
from a text format.
 
myfile = ThisWorkbook.Name
'test if there is a file extension
StrDate = Format(Date, "mm-dd-yy")
If InStr(myfile, ".") > 0 Then
Pre = Left(myfile, InStr(myfile, ".") - 1)
Post = Mid(myfile, InStr(myfile, "."))
NewName = Pre & "_" & StrDate & Post
Else
NewName = myfile & "_" & StrDate & ".xls"
End If

ThisWorkbook.SaveAs Filename:=NewName
 
I assume you mean that myFile is a variable containing the file name. If so,

ActiveWorkbook.SaveAs FileName:= myFile & "-" & _
Format(Now, "m/d/yy") & ".xls"

This puts a - between the file name and date.
 
The / is an illegal character.

Suggest "mmddyy" or "mdyy"


Gord Dibben MS Excel MVP
 
hi
i thought slashes, forward or back, were forbidden characters in a file name.

Regards
FSt1
 
Back
Top