Specify a folder for saving to?!?!

S

solo_razor

Hello,

I want to specify a folder in a open file dialog box so you can click
your way through it. It must have a trigger such as a button.
This folder must then later contain the file that i am working on, but
the main concern is to specify a folder using a getopenfile box?

Can anybody help.

Regards
Niek
 
D

davers

Here is a way to get an open dialog box that asks you where you want to
save:


Code:
--------------------

Sub saveinLocation()
Dim UF As Variant

UF = Application.GetSaveAsFilename(FileFilter:="Excel Workbooks(*.xls),*.xls", Title:="Save Where?")
ThisWorkbook.SaveAs Filename:=UF

End Sub
--------------------


This code is giving the option to specifically save as a .xls file.

Hope this helps,

Dave M.
 
Top