ブックの中のシートを一括でCSV出力するマクロ

ブックの中にあるシートを

一括でCSV出力するマクロ

コード

Sub csv出力()
    Dim ws As Worksheet
    
    '全てのシートに処理
    For Each ws In ThisWorkbook.Worksheets
        
        'シートをcsv形式でシートの名前で保存
        ws.SaveAs FileName:=ThisWorkbook.Path & "\" & ws.Name & ".csv", FileFormat:=xlCSV
    
    '繰り返し
    Next
    
    MsgBox "csv形式で保存しました"

End Sub

注意点

シートの名前でCSV出力される。