VBA to select Save As Folder

[craigg3]

I have a button that users can click which will open the SaveAs popup box, where the user can input a file name to save as. What I need it to also do is to go to a particular folder to save into. The folder (called "Cost") is in the same folder as the excel spreadsheet, but need to keep them separate than the master file so I create the folder "Cost" to save to. The user will still need to be able to name the file during the SaveAs popup, I just need the SaveAs popup to default to the "Cost" folder. Not sure how to make it default to the "Cost" folder while still allowing the user to name the file whatever they need to. Any help would be appreciated. Thanks.

 

[Norie]

How are you popping up the SaveAs dialog?

 

[craigg3]

How are you popping up the SaveAs dialog?

Im using:
Application.GetSaveAsFilename

 

[Norie]

You can use the InitialFileName argument of Application.GetSAveAsName to specify the starting folder.

Dim strFileName As String
Dim strPath As String

    strPath = ThisWorkbook.Path & "\Cost\"

    strFileName = Application.GetSaveAsFilename(InitalFileName:=strPath)

 

[craigg3]

You can use the InitialFileName argument of Application.GetSAveAsName to specify the starting folder.

Dim strFileName As String
Dim strPath As String

    strPath = ThisWorkbook.Path & "\Cost\"

    strFileName = Application.GetSaveAsFilename(InitalFileName:=strPath)

Norie,
Thanks for the help. When trying the code, it does pop up to the correct folder, but when I type a file name into the dialog box and click save, it seems like it works, but then it doesn't save anything. Any idea why? Thanks.

 

[Norie]

GetSaveAsFilename doesn't actually save anything, all it does is get the filename to use when saving.

So you'll need to add your own code to do the actual saving using the filename the user entered.