Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Save As Macro
I save files "name +date" such as. "dell may 03" date
always has the last six spaces . i.e. next month will be "dell jun 03" I am looking for a macro that after completing procedures in a workbook would open the "Save As" dialog box and 1. remove the previous date 2. save the file as "name + new date" The update is always done in the month of the file date. Any help would be very much appreciated. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Save As Macro
Try this.
Private Sub CommandButton1_Click() tmpName = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 10) Select Case Month(Now()) Case 1 tmpMonth = "Jan " Case 2 tmpMonth = "Feb " Case 3 tmpMonth = "Mar " End Select tmpYear = Right(Year(Now()), 2) ActiveWorkbook.SaveAs FileName:="C:\WINDOWS\Desktop\" _ & tmpName & tmpMonth & tmpYear, _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False End Sub Michael Tomasura "Ronbo" wrote in message ... I save files "name +date" such as. "dell may 03" date always has the last six spaces . i.e. next month will be "dell jun 03" I am looking for a macro that after completing procedures in a workbook would open the "Save As" dialog box and 1. remove the previous date 2. save the file as "name + new date" The update is always done in the month of the file date. Any help would be very much appreciated. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Save As Macro
-----Original Message----- Try this. Private Sub CommandButton1_Click() tmpName = Left(ActiveWorkbook.Name, Len (ActiveWorkbook.Name) - 10) Select Case Month(Now()) Case 1 tmpMonth = "Jan " Case 2 tmpMonth = "Feb " Case 3 tmpMonth = "Mar " End Select tmpYear = Right(Year(Now()), 2) ActiveWorkbook.SaveAs FileName:="C:\WINDOWS\Desktop\" _ & tmpName & tmpMonth & tmpYear, _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False End Sub Michael Tomasura "Ronbo" wrote in message ... I save files "name +date" such as. "dell may 03" date always has the last six spaces . i.e. next month will be "dell jun 03" I am looking for a macro that after completing procedures in a workbook would open the "Save As" dialog box and 1. remove the previous date 2. save the file as "name + new date" The update is always done in the month of the file date. Any help would be very much appreciated. . Thanks a lot for your help. It is getting me on the way. The trouble I am having at this point is that it is putting the name in twice i.e. "delldell feb 04" and two it is putting it into the wrong (parent) directory and I have changed your desktop dir to the correct one. Again. thanks a lot for your help. If you can add any further suggestions, they would be appreciated. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro to Insert Current Date into cell - Macro to "Save As" | Excel Worksheet Functions | |||
Macro (SAVE AS) | Excel Discussion (Misc queries) | |||
Save As Macro | Excel Discussion (Misc queries) | |||
Macro to Save without the Save Message | Excel Discussion (Misc queries) | |||
Prompted to save changes after macro save - why? | Excel Programming |