Save a file based on filename

[francozola25]

Is there any way in Excel VBA. that i could have a macro that will save a file off based to an E:\Drive based on it's filename?

The E:\Drive is a USB drive, i just want to back up my data on USB drive this way.

 

[Richard Schollar]

Hi

Can you explain what it is you want to do - I have failed to understand. Are you just wanting ot save the file to the E drive? If so, why is this causing you problems?

 

[francozola25]

The file is updated everyday, at the end of the evening, i the macro to be able to take the filename and copy to the E:\Drive when a button is clicked. As long with the filename is there a way to include todays date in the file save as?

 

[Richard Schollar]

Sure:

Dim strMyFile As String
strMyFile = ThisWorkbook.Name
ThisWorkbook.SaveAs "E:\myFolder\" & Left(strMyFile,InstrRev(strMyFile,".")-1) & Format(Date,"yyyy-mmm-dd") & ".xls"

which will save the file down with today's date appended as "2008-Jun-24.xls"