Excel VBA CSVに改行コードを入れる

ray88’s diary
■テスト用CSVをテストデータ生成サイトで作成した場合、改行コードが入っていない場合がある。 このようなときにCSVファイルに改行コードを入れるためのコード

Sub CSVに改行コードを追加()
    ' CSVファイルのデータを読み込む
    Dim CsvFilePath As String
    Dim csvData As String
    Dim fso As Object
    Dim ts As Object

    CsvFilePath = "C:\テスト\CSVテスト\dummy.csv"

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.OpenTextFile(CsvFilePath, 1)

    csvData = ts.ReadAll
    ts.Close

    ' 各行の末尾に改行コードを追加
    csvData = Replace(csvData, vbCr, vbCr & vbLf)

    ' CSVファイルを一時的に書き込む
    Set ts = fso.CreateTextFile(CsvFilePath, True)
    ts.Write csvData
    ts.Close

End Sub