エクセルマクロ(全シートを出力する)

コンピューター

100近いシートにわかれているエクセルデータをひとつにまとめる必要があり
マクロを作ってみました。

ネットで調べた結果でなんとなく動いたので、詳細が間違っているかもしれません。
もしも使う方がいらっしゃいましたらご参考程度にどうぞ。

Sub シートを順番に保存()

    Dim ws As Worksheet
    Dim savePath As String
    
    ' フォルダのパスを設定（適切なフォルダパスに置き換えてください）
    savePath = "C:\Users\"
    
    ' 各シートを順番に処理
    For Each ws In ThisWorkbook.Sheets
        ' シートを選択
        ws.Select
        ' ファイルを保存
        ActiveWorkbook.SaveAs Filename:=savePath & ws.Name & ".txt", FileFormat:=xlCurrentPlatformText
    Next ws

End Sub

・保存先はsavePathの部分を書き換えてください。
・全てのシートを対象にtxtファイルで書き出しされます。
（シート数だけファイルが作成されます）
・ファイル名はシート名に準じます。
・データの区切りはタブ記号になります。

出力したファイルをひとつにまとめたい場合は、コマンドプロンプトで結合できるようです。
私はEmEditorの「ファイルを結合」機能で結合しました。
https://jp.emeditor.com/

CS3 ALiCE(シーエススリー アリス)

風俗向け管理システム
https://www.cs3.jp/

コンピューター