Saving a workbook as a .CSV in VBA

[dwg83]

I need to save a workbook as a .csv file while naming it with a ".mt1" ending. Currently the workbook saves, but not as comma seperated values. Additionally, when I get that to work, I'd like to not show the warning that says "TEST.mt1 may contain features that are not compatable...." I'd like to just automatically choose "yes". Thoughts???
This is what I have

fName = Application.GetSaveAsFilename(InitialFileName:=".mt1", FileFilter:="CSV (Comma delimited) (*.csv), *.csv", Title:="Save As")
ActiveWorkbook.SaveAs Filename:=fName

Thanks

 

[Splith]

hmmm let me look into that.

 

[Splith]

place

Application.DisplayAlerts = false

...code...

Application.DisplayAlerts = true

in your code to disable that comment and then instantly re enable it after your code is finished.

That is as far as I can help you I am actually going to look into your first line of code for I do not understand it.

edit: If you could site the source of where you got that first line of code that would be wonderful because I can not find anything in the excel help at all.

 

[xenou]

Maybe like this?

Sub foo()

[COLOR="SeaGreen"]'//Get filename[/COLOR]
fname = Application.GetSaveAsFilename(InitialFileName:=".mt1", FileFilter:="CSV (Comma delimited) (*.csv), *.csv", Title:="Save As")
[COLOR="seagreen"]'//if default filter of .csv is supplied, change it to .mt1[/COLOR]
fname = Replace(fname, ".csv", ".mt1", 1, -1, vbTextCompare)
[COLOR="seagreen"]'//Save as .csv file[/COLOR]
ActiveWorkbook.SaveAs Filename:=fname, FileFormat:=xlCSV

End Sub

 

[dwg83]

I got that line from here:
http://www.mrexcel.com/forum/showthread.php?t=377919&highlight=save+message+box

 

[dwg83]

Alexander, when I run your code exactly, I am getting this error at the "ActiveWorkbook.SaveAs" line

Run-time error '1004':
Method 'SaveAs' of object '_Workbook' failed

Ideas?

 

[xenou]

Hmmm...Works here. Maybe something about your filename? What are we trying to save the file as now?

Sub foo()

'//Get filename
fname = Application.GetSaveAsFilename(InitialFileName:=".mt1", FileFilter:="CSV (Comma delimited) (*.csv), *.csv", Title:="Save As")
'//if default filter of .csv is supplied, change it to .mt1
fname = Replace(fname, ".csv", ".mt1", 1, -1, vbTextCompare)
'//DEBUG - ADD THESE LINES
msgbox fname
'//Save as .csv file
ActiveWorkbook.SaveAs Filename:=fname, FileFormat:=xlCSV

End Sub

 

[dwg83]

The message box gives the value of fname as C:\Documents and Settings\david\Desktop\TEST.mt1

 

[xenou]

Very odd. You can save the file in the same place with the same name? I mean, on your own, rather than in code?