browse button for save directory

[geospatial]

I am trying to add a button that will get the directory of the location that an individual chooses.

application.getopenfilename

I know the above code will open your browse window and allow you to choose a file, but all I really want is to be able to open the browse window and then creat a new folder and make that my save directory or choose an already created folder and make it my save directory.

 

[kpark91]

Use msofiledialogfolderpicker

here's the link to use it.

Example/help file from MS:
http://support.microsoft.com/kb/288543

 

[VoG]

Try like this

Sub saveme()
Dim fName As Variant
fName = Application.GetSaveAsFilename(InitialFileName:="", FileFilter:="Excel Files (*.XLS), *.XLS", Title:="Save As")
If fName = False Then Exit Sub
ActiveWorkbook.SaveAs Filename:=fName
End Sub

 

[geospatial]

Thanks,

they both seem to work fine. Now that this part is accomplished I have to figure out how to export all charts in a workbook to that folder location.

 

[kpark91]

Make another thread for that.

 

[geospatial]

I probably will. I like to work on things and google for a good period of time before I start a thread.