how to programmatically use "Save As" in macro???

[xenium]

here's the problem:

When a user click on an assigned button, i would like to do the following:

1. Present the user with a "Save As" dialog box, BUT with a specific folder location (not the default dir) so users do not have to navigate further...
(So far, I can only do the 1st part)

2. User types a filename and click save

3. Continues with the rest of the macro, i.e. Saves the file as HTML...

Thank you...

 

[Ivan F Moala]

On 2002-04-11 23:23, xenium wrote:
here's the problem:

When a user click on an assigned button, i would like to do the following:

1. Present the user with a "Save As" dialog box, BUT with a specific folder location (not the default dir) so users do not have to navigate further...
(So far, I can only do the 1st part)

2. User types a filename and click save

3. Continues with the rest of the macro, i.e. Saves the file as HTML...

Thank you...

Here's one way to do it;
Look up Help file for more info.

<pre/>
Sub MySaveAs()
Dim sFileSave As String
Dim sFileFrmt As String

'// Define your format here
sFileFrmt = "xls"
'// Define your Dir to saveto here
ChDir ("C:AAText")

sFileSave = Application.GetSaveAsFilename
If sFileSave = "False" Then Exit Sub

On Error GoTo ErrSave
ActiveWorkbook.SaveAs (sFileSave & sFileFrmt)

Exit Sub
ErrSave:
MsgBox Err.Number & vbCr & _
Err.Description & vbCr _
, vbMsgBoxHelpButton, "Error", Err.HelpFile, Err.HelpContext
End Sub

</pre>

 

[xenium]

thank you... you're a great help!

I'll be able to adapt it (the macro) further with your macro as a guide...

Thanks again!