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
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