Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Application.DefaultFilePath to open not just save
I am currently using the below code to set the default save path but i want
to have is, the Default file path folder opened so the user can navigate to a Sub Folder, then save it. Sub Macro2() ' Saves and Quits Excel Application.DefaultFilePath = ("\\Office2\my documents\Cure Sheets") res = InputBox("Enter the Splice Number....", "Company Name...") If res = "" Then Exit Sub With ActiveWorkbook ActiveWorkbook.Save End With With ActiveWorkbook ActiveWorkbook.SaveAs Filename:=res On Error GoTo 0 End With Application.DisplayAlerts = False Application.Quit End Sub How can i do this ? Regards Corey |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Application.DefaultFilePath to open not just save
Forgot to mention.
I have the main file as a Template. How do i set the other files to SaveAs .xls and Not as Templates? Corey.... |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Application.DefaultFilePath to open not just save
Corey,
Have you tried: ChDir "C:\" RetVal= Application.GetSaveasFilename() NickHK "Corey" wrote in message ... I am currently using the below code to set the default save path but i want to have is, the Default file path folder opened so the user can navigate to a Sub Folder, then save it. Sub Macro2() ' Saves and Quits Excel Application.DefaultFilePath = ("\\Office2\my documents\Cure Sheets") res = InputBox("Enter the Splice Number....", "Company Name...") If res = "" Then Exit Sub With ActiveWorkbook ActiveWorkbook.Save End With With ActiveWorkbook ActiveWorkbook.SaveAs Filename:=res On Error GoTo 0 End With Application.DisplayAlerts = False Application.Quit End Sub How can i do this ? Regards Corey |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Spreadsheet will not open without Excel Application being open fir | Excel Discussion (Misc queries) | |||
Command Button Save As Application.ExecuteExcel4Macro ("SAVE.AS?() | Excel Discussion (Misc queries) | |||
Can Excel open a new application every time you open a file? | Setting up and Configuration of Excel | |||
Can not open excel files without open application | Excel Discussion (Misc queries) | |||
Problems setting Application.DefaultFilePath | Excel Programming |