Problem setting Save As dialog box

blizzardnd

New Member
Joined
Jul 23, 2010
Messages
2
Using Excel 2007 on XP SP3. I’ve created a very simple macro to open the Save As dialog box so that its focus is at a very specific location on a server with a 97-2003 workbook file type – "K:\Quotes – 10" is my desired location (I do not want the macro to save the file, just configure the dialog box). My Excel default Save As location is also set to this folder. The macro works fine if I run it on a new file (I’m thinking a false positive due to the default Save As setting), but if I run it on a file that has been previously saved to some other location, the Save As dialog opens to the path of where the file is currently saved (Desktop in my case). The MsgBox ‘debug’ statement returns K:\Quotes - 10 . If I remove the ChDrive and ChDir statements, the MsgBox statement returns the path of where the file is currently saved so I know these two statements are working as expected but my Save As dialog box is being opened to focus on where the file is currently saved. I’ve also tried

Application.Dialogs(xlDialogSaveAs).Show "K:\Quotes - 10\" & sFileName, xlExcel8

and it doesn’t work either. The filename isn’t important to me but the file type is.

Dim sFileName As String
sFileName = ActiveWorkbook.Name

ChDrive "K:"
ChDir "\Quotes - 10"
MsgBox CurDir

Application.Dialogs(xlDialogSaveAs).Show sFileName, xlExcel8
 

Excel Facts

Wildcard in VLOOKUP
Use =VLOOKUP("Apple*" to find apple, Apple, or applesauce

AnAnalyst

Well-known Member
Joined
Jul 10, 2007
Messages
536
Hi,

Have you considered using the Application.GetSaveAsFilename method instead?

This would allow you to capture the file name but be very specific about path and file type.

HTH
 

blizzardnd

New Member
Joined
Jul 23, 2010
Messages
2
Yes and initially I couldn't quite get it to do what I wanted but by looking at samples of others' works, I was able to get it to work. Thanks
 
Master Excel Bundle

Excel contains over 450 functions, with more added every year. That’s a huge number, so where should you start? Right here with this bundle.

Forum statistics

Threads
1,164,446
Messages
5,837,292
Members
430,493
Latest member
prontonz

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top