Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
file save as macro
I am trying to write macros to attached to a specific
files that will enable the automation of selecting the correct folder the finished document will be saved in. source document is in X folder, when user is ready to save play macro to save in folder Y and prompt for file name (to be entered by user) any help would be appreciated |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
file save as macro
Perhaps use the beforeSave event
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) On Error goto ErrHandler If Ucase(ThisWorkbook.FullName < Ucase("C:\Myfolder\" & Thisworkbook.Name) or _ SaveAsUI then Cancel = True Chdrive "C" ChDir "C:\Myfolder" fName = Application.GetOpenFileName(FileFilter:="Excel Files (*.xls),*.xls") Application.enableEvents = False Thisworkbook.SaveAs fName End If Errhandler: Application.EnableEvents = True End Sub the above is untested, but should represent a general approach. May require a bit more thought on all possibilities. -- Regards, Tom Ogilvy Joann Adams wrote in message ... I am trying to write macros to attached to a specific files that will enable the automation of selecting the correct folder the finished document will be saved in. source document is in X folder, when user is ready to save play macro to save in folder Y and prompt for file name (to be entered by user) any help would be appreciated |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
2007 Macro to Open File, Delete Contents, Save New File | Excel Discussion (Misc queries) | |||
Allow a macro to save over another file | Excel Discussion (Misc queries) | |||
Macro Save File (Unique file name) | Excel Worksheet Functions | |||
Macro to insert values from a file and save another sheet as a .txt file | Excel Programming | |||
Automate open file, update links, run macro, close and save file | Excel Programming |