Save As File Type

[swedish max]

Hi there,

I have written a macro to copy a worksheet from an Excel spreadshee
into a new workbook. I then wish to save this wookbook as a CSV file.

The problem is that I want the Save As box to appear for the user, bu
I want to to default automatically to CSV in the file type drop down.
The location and name of where the file is being saved depends on th
user, the only constant is that the file must be CSV.

Can anyone help?

Thanks

Ma

 

[NickHK]

Max,
Check out the GetSaveAsFilename method.

NickHK

"swedish max" <[email protected]>
wrote in message
news:[email protected]...

 

[Bob Phillips]

Dim fileSaveName

fileSaveName = Application.GetSaveAsFilename( _
fileFilter:="CSV Files (*.csv), *.csv")
If fileSaveName <> False Then
ActiveWorkbook.SaveAs fileSaveName
End If

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"swedish max" <[email protected]>
wrote in message
news:[email protected]...