Help us understand the problem. What is going on with this article?

EXCELファイルのすべてのシートをCSVファイルで出力するマクロを作成してみた

EXCELファイルの全シートをシート名のCSVファイル名で出力するVBAのサンプルを作成しました
また使いそうなので、忘れないうちにメモを残しておきます。

Sub outputCSV()

     '出力末尾列
     END_COL = 100

     '出力開始行
     START_ROW = 1

     '出力最大行
     MAX_ROW = 10000

     Dim sh As Worksheet

     '基底ファイルパス取得
     thisPath = ThisWorkbook.Path

     'シート毎のループ
     For sheetIndex = 1 To Worksheets.Count

        'シートオブジェクト取得
        Set sh = Worksheets(sheetIndex)

        'シート名取得
        sheetName = sh.Name

        '出力CSVファイル名生成
        Filepath = thisPath & "\" & sheetName & ".csv"

        '該当シート情報出力
        sh.Activate

        '出力CSV作成
        Open Filepath For Output As #1

        '1行ごとに行情報を出力
        For tgtRow = START_ROW To MAX_ROW

            '1行ごと取得、CSV文字列を生成
            Dim arr: arr = Range(Cells(tgtRow, 1), Cells(tgtRow, END_COL))
            Dim arrRowLine: arrRowLine = WorksheetFunction.Transpose(arr)
            Dim arrColLine: arrColLine = WorksheetFunction.Transpose(arrRowLine)
            '配列を区切り文字カンマ「,」で連結
            lineCsvStr = Join(arrColLine, ",")

            'CSV文字列出力
            Print #1, CStr(lineCsvStr)

        Next tgtRow

        'ファイルをClose
        Close #1

     Next sheetIndex

     MsgBox "CSV出力が完了しました"

End Sub

EXCELから1行ごとの行情報をまとめて取得する方法は以下を参考にさせていただきました。
https://thom.hateblo.jp/entry/2018/08/02/073503

Zumwalt
主に開発メモです
Why not register and get more from Qiita?
  1. We will deliver articles that match you
    By following users and tags, you can catch up information on technical fields that you are interested in as a whole
  2. you can read useful information later efficiently
    By "stocking" the articles you like, you can search right away