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 |
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 |
All times are GMT +1. The time now is 08:31 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com