Excelの全シートをそれぞれCSVエクスポートする

saveSheetsAsCSV.vba

Sub saveSheetsAsCSV()
    Dim i As Integer
    Dim fName As String
    Application.DisplayAlerts = False
    
    For i = 1 To Worksheets.Count
        fName = "C:\Users\yk\Downloads\sheet-" & i & ".csv"
        ActiveWorkbook.Worksheets(i).SaveAs Filename:=fName, FileFormat:=xlCSVUTF8
    Next i
End Sub

usage.md

使い方

1. Excelで作業したいブックを開く
2. Alt + F11
3. 左のペイン「プロジェクト - VBAProject」で「ThisWorkbook」をダブルクリック
4. ☝を貼る
5. ツールバーから「実行」