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

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

No.1 ベストアンサー 回答者： dobaken 回答日時： 2005/10/07 16:46

こんにちは。

マクロを使えばできます。

下記マクロを該当エクセルファイルか個人用マクロブックにコピペして実行してみてください。
エクセルファイルと同じフォルダにシート名＋".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

この回答へのお礼

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

お礼日時：2005/10/07 21:31