パープルハット

※当サイトではGoogleアドセンス広告を利用しています

Excel VBA シートを個別のCSVファイルに保存

保存するファイル名は元のシート名とする。
また、ファイルの保存場所は実行ファイルと同じ場所。

'シートを別ブック保存(.xlsx形式)
Public Sub SaveCSV()
    For Each copySheet In Worksheets
        'ワークシートを新規ブックにコピー
        copySheet.Copy

        '保存するパスの決定
        Dim pathStr As String
        pathStr = ThisWorkbook.Path & "\" & copySheet.Name & ".csv"
        
        '保存
        ActiveWorkbook.SaveAs _
        Filename:=pathStr, _
        FileFormat:=xlCSVUTF8
        
        'ファイルを閉じる
        ActiveWorkbook.Close False
    Next
End Sub