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
 

Some videos you may like

Excel Facts

How to total the visible cells?
From the first blank cell below a filtered data set, press Alt+=. Instead of SUM, you will get SUBTOTAL(9,)

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
 

Subscribe on YouTube

Watch MrExcel Video

Forum statistics

Threads
1,106,585
Messages
5,512,232
Members
408,885
Latest member
binduchekuri

This Week's Hot Topics

  • Sort code advice please
    Hi, I have the code below which im trying to edit but getting a little stuck. This was the original code which worked fine,columns A-F would sort...
  • SUMPRODUCT with nested If statement
    Hi everyone, Hope you're all well. I'm hoping someone will be able to point me in the right direction with a problem I'm having with a SUMPRODUCT...
  • VBA - simple sort is killing me!
    Hello all! This should be so easy, but not for me, apparently! I have a table of data that can be of varying lengths and widths. My current macro...
  • Compare Two Lists
    I have two Lists and I need to be able to Identify differences between them. List 100 comes from a workbook - the other is downloaded form the...
  • Formula that deducts points for each code I input.
    I am trying to create a formula that will have each student in my class start at 100 points and then for each code that I enter (PP for Poor...
  • Conditional formatting formula required for day of week and a value
    Hi, I have a really simple spreadsheet where column A is the date, column B is the activity total shown as a number and column C states the day of...
Top