Save As

O

Orf Bartrop

I am a newby at programming Excel.
How do you program to bring up the "Save As" box?

Orf Bartrop
 
Y

yogendra joshi

This should help:
Code: 
Sub sv_as()
fileSaveName = Application.GetSaveAsFilename( _
fileFilter:="Excel File (*.xls), *.xls")
ActiveWorkbook.saveas (fileSaveName)
End Sub
 
O

Orf Bartrop

Thank you, works well. However, at present it selects My Documents
folder and I would like it to select a particulat folder. How do I
nominate that folder rather than have to select it from the dialog box?

Orf


*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!
 
B

Bob Phillips

Use

chdrive "d:\Development"
chdir "d:\Development"

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
Top