Prompt for SaveAsDialog with file type preset.

[invictus1964]

I want to prompt the user for a save as file name and defualt the file type
to csv. I am trying
Application.Dialogs(xlDialogSaveAs).Show Arg2:=xlCSV
result: saves file as csv then code is interrupted
also tried
Filename = Application.GetSaveAsFilename( _
fileFilter:="Comma Seperated Values (*.csv), *.csv")
result: no interruption but does not save file and cannot recall name using
ActiveWorkbook.SaveAs

[theDude]

Try this code:

Sub a_saveFile()
Dim myFile

myFile = Application.GetSaveAsFilename( _
fileFilter:="Comma Seperated Values (*.csv), *.csv")
ActiveWorkbook.SaveAs myFile
MsgBox "File saved as : " & myFile
End Sub

Hope this helps,
theDude

[Dave Peterson]

maybe...

dim myFileName as Variant
myfilename = application.getsaveasfilename("comma separated values, *.csv")
if myfilename = false then
'user hit cancel
else
activeworkbook.saveas filename:=myfilename, fileformat:=xlCSV
end if

..getsaveasfilename won't do the save, but it'll give you the name--so you can do
your own save.

invictus1964 wrote:
>
> I want to prompt the user for a save as file name and defualt the file type
> to csv. I am trying
> Application.Dialogs(xlDialogSaveAs).Show Arg2:=xlCSV
> result: saves file as csv then code is interrupted
> also tried
> Filename = Application.GetSaveAsFilename( _
> fileFilter:="Comma Seperated Values (*.csv), *.csv")
> result: no interruption but does not save file and cannot recall name using
> ActiveWorkbook.SaveAs

--

Dave Peterson

[Craig]

I use this
/code
Sub CSVName()
FullFileName = Application.GetSaveAsFilename("", "CSV (Comma
delimited)(*.csv),*.csv", 1, "Save As *.csv")
If FullFileName <> "False" Then
ActiveWorkbook.SaveAs Filename:=FullFileName, FileFormat:=xlCSV
End If
End Sub
/code

Craig


"invictus1964" <invictus1964@discussions.microsoft.com> wrote in message
news:9DF5CA05-5DBC-47F6-9F4F-27685BE3A51E@microsoft.com...
> I want to prompt the user for a save as file name and defualt the file
type
> to csv. I am trying
> Application.Dialogs(xlDialogSaveAs).Show Arg2:=xlCSV
> result: saves file as csv then code is interrupted
> also tried
> Filename = Application.GetSaveAsFilename( _
> fileFilter:="Comma Seperated Values (*.csv), *.csv")
> result: no interruption but does not save file and cannot recall name
using
> ActiveWorkbook.SaveAs
>
>
>
>