Macro to display Save As dialog box for designated directory

Posted by A.R. on June 26, 2001 8:52 AM

How do I create a macro that will display the Save As dialog box for a designated directory (path)? I tried out the macro that was posted at www.mrexcel.com/wwwboard/messages/21126.html but that did not work for my purpose. Also, I need the worksheets to be saved in Excel 95 and 97 format.

Posted by faster on June 26, 2001 10:22 AM

Sub SvDir()
'replace C:\Program Files\ with desired directory
Application.Dialogs(xlDialogSaveAs).Show "C:\Program Files\"
End Sub

Posted by mseyf on June 26, 2001 10:28 AM

no guarantees, but you can give this a go:

Application.Dialogs(xlDialogSaveAs).Show arg1:="d:\downloads\", arg2:=xlExcel9795

HTH

-Mark