Problem setting Save As dialog box

[blizzardnd]

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

 

[AnAnalyst]

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]

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