Excel VBA 質問スレ Part74

[845 デフォルトの名無しさん (ﾜｯﾁｮｲ f1ce-Xc5L) 2022/01/31(月) 04:36:16.27 ID:ByM6Elur0]

>>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