Automatic File Names

[chrismusic79]

I am trying to create a backup file using an autoexec macro, but am
unable to find the command to put in the macro to create the file name.

I need to have the file name auto-incremental depending on what name is
in the folder.

Could anyone also tell me how to create the file name as the current
date..

Thanks.

 

[Guest]

Hello Chris,

How about this. It doesn't go and look in the folder for what is already
there, but it saves your active workbook as for example "BACKUP 080629.xls"
inside the folder you specify.

If you really want to get it to look in the folder to see what is there,
then add one, post the question under excel programming.

ActiveWorkbook.SaveAs Filename:="\\SERVER\FOLDER\"BACKUP" & Format(Year(Now)
- 2000, "00") & Format(Month(Now), "00") & Format(Day(Now), "00") & ".xls"


HTH

 

[Dave Peterson]

I think I'd use the time and date. It makes your code easier and even allows
you to know when the save took place based on the filename itself.

dim myFileName as string
with activeworkbook
myfilename = left(.fullname,len(.fullname)-4) & _
"_" & format(now,"yyyymmdd_hhmmss") & ".xls"

.savecopyas myfilename
end with