エクセルでシート名のCSV形式ファイルの一括複数保存

質問

エクセルで編集した複数のシートをそれぞれのシート名でCSV形式ファイルとして保存するにはシートを開いてはファイル名を指定してＣＳＶで保存という操作をシート分だけしなければならないのですが、これを少ない操作で行う事は可能でしょうか。たとえばシートを複数選択して、ＣＳＶ形式だけを選択して一括で保存するとかです。

回答No.1

dobaken · ベストアンサー

こんにちは。
マクロを使えばできます。

下記マクロを該当エクセルファイルか個人用マクロブックにコピペして実行してみてください。
エクセルファイルと同じフォルダにシート名＋".csv"という名前のCSVファイルを作成します。
（選択したシートのみ）

Sub SaveCsv()
Dim mySheet As Worksheet
For Each mySheet In ActiveWindow.SelectedSheets
ActiveWorkbook.SaveAs Filename:= _
ActiveWorkbook.Path & "\" & mySheet.Name & ".csv", _
FileFormat:=xlCSV, CreateBackup:=False
Next
End Sub

お礼

完璧です。ありがとうございます。