エクセルの複数シートをＣＳＶファイルに変換したい

やはりマクロでしょうか。 簡単なエラー処理しかしてませんので試すならテスト環境で。 1）Excelを起動して新規ブックの状態から ALT + F11 でVBE画面を起動します。 2）VBE画面のメニューから挿入－標準モジュールで出てきた画面に下記マクロをコピペします。 3）VBE画面を閉じてExcelに戻り、ブックを適当な名前で保存します。（出来れば新たにフォルダを作って） 4）対象となるファイルを開き、アクティブな状態でツール－マクロ－マクロで実行します。 5）上記3で保存した場所にCSVファイルを作ります。 Sub Test() Dim ws As Worksheet On Error Resume Next For Each ws In ActiveWorkbook.Worksheets ws.SaveAs ThisWorkbook.Path & "\" & ws.Name & ".