EXCEL VBAでCSV形式で名前を付けて保存をしたいが、CSVファイルができるが中身はエクセルのまま

Question

###前提・実現したいこと
マクロを使って生成されたシートを名前を付けて保存したいができない。
CSV形式のファイルができるが、中身はCSVではなくエクセルで拡張子がCSVにばっただけだった。
###発生している問題・エラーメッセージ

エラーメッセージ

###該当のソースコード
'保存
Dim FileName As Variant
FileName = Application.GetSaveAsFilename(InitialFileName:=ActiveSheet.Name, FileFilter:="CSVファイル,*.csv")
If FileName = False Then
Exit Sub
End If
ActiveWorkbook.SaveAs FileName

###試したこと
本当はEXCELかCSVかを保存時に選べるようにしたかったのでFileFilter:にはxlsも選べるよう設定していたが、CSVのみに変えてもダメです。
###補足情報(言語/FW/ツール等のバージョンなど)
excel2016

Answer 1

SaveAsメソッドには引数があります。
https://msdn.microsoft.com/ja-jp/vba/excel-vba/articles/workbook-saveas-method-excel

FileFormatでファイル形式を指定できます。
次のようにしてみてください。

ActiveWorkbook.SaveAs Filename:=FileName, FileFormat:=xlCSV

Comments

[primetimefuture]

ありがとうございます。できました。

Answer 2

Application.SaveAs FileName, xlCSV

このようにSaveAsメソッドのFileFormat引数を指定するとできる気がします。

ご参考：
https://msdn.microsoft.com/ja-jp/vba/excel-vba/articles/workbook-saveas-method-excel
https://msdn.microsoft.com/ja-jp/vba/excel-vba/articles/xlfileformat-enumeration-excel