22/01/31 04:36:16.27 ByM6Elur0.net
>>822
Sub save_sheet_as_csv()
save_folder = "c:\tmp\" '保存先フォルダ指定
file_name = ActiveSheet.Name & ".csv" 'シート名をファイル名に
ActiveSheet.Copy '現在のシートを新規ブックへコピー
Application.DisplayAlerts = False '警告を無視して上書き保存できるようにする
ActiveWorkbook.SaveAs Filename:=save_folder & file_name, FileFormat:=xlCSV 'CSVで保存
Workbooks(file_name).Close '新規ブックを閉じる
End Sub