エクセルVBAでエクセルシート上のデータをCSVファイルに書き出す

みなさん、こんにちは！
タカハシ(@ntakahashi0505)です。

エクセルのデータを様々なファイルに書き出してみています。

前回はこちらの記事です。

エクセルVBAでテキストファイルに書き出す最も簡単なプログラム

エクセルVBAでは様々なテキストファイルを生成できますが、今回はその中でも最も簡単な拡張子txtのテキストファイルをエクセルシートのデータを元に出力する方法についてお伝えしています。

エクセルシートに記述された内容をテキストファイル「data.txt」に書き出すプログラムを紹介しました。

以外と簡単でしたよね。

さて、異なるアプリケーション間でデータを交換する際にはCSV形式がよく使われます。

CSVとは何か？そしてエクセルでCSVファイルを扱うときの注意点

初心者向けエクセルVBAでCSVファイルを取り込む方法丁寧に解説をしていきたいと思います。初回は準備編としてそもそもCSVファイルとは何か、エクセルで開く際の注意点についてお伝えします。

今回は、エクセルVBAでエクセルシートのデータをCSVファイルとして出力する方法についてお伝えしていきます。

前回のおさらい：エクセルシートの内容をテキストファイルで書き出す
エクセルシートの内容をCSVファイルとして書き出す
1. 改行をせずにCSVファイルに書き出す
実行結果
まとめ
連載目次：エクセルVBAでCSVや様々なテキストファイルを出力する

前回のおさらい：エクセルシートの内容をテキストファイルで書き出す

前回のプログラムはこちらでした。

Sub makeText()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets(1)

Dim datFile As String
datFile = ActiveWorkbook.Path & "\data.txt"

Open datFile For Output As #1

Dim i As Long
i = 1
Do While ws.Cells(i, 1).Value <> ""
    Print #1, ws.Cells(i, 1).Value
    i = i + 1
Loop

Close #1

MsgBox "data.txtに書き出しました"

End Sub

流れとしては

「data.txt」というファイル名でテキストファイルをオープン
エクセルシートの終わりまで一行ずつ繰り返し
- テキストファイルにA列を一行で出力
「data.txt」をクローズ

となります。

エクセルシートの内容をCSVファイルとして書き出す

まず今回お題とするエクセルシートのデータは以下のような作りにします。

さて、出力をCSVにするためには前述のプログラムをどう変更すればよいでしょうか？

まず、書き出すファイルの拡張子をcsvにします。

前述のプログラムでは一行ずつ縦に走査して順番に書き出していけばよかったのですが、今度はセル一つずつ横方向へ走査する必要がありますね。その際にデータとデータの間はカンマで区切ります。

それで、最後の列であるL列までいったら改行を入れます。

以上を踏まえたプログラムはこのようになります。

Sub writeCSV()

Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets(1)

Dim csvFile As String
csvFile = ActiveWorkbook.Path & "\data.csv"

Open csvFile For Output As #1

Dim i As Long, j As Long
i = 1

Do While ws.Cells(i, 1).Value <> ""

    j = 1
    Do While ws.Cells(i, j + 1).Value <> ""

        Print #1, ws.Cells(i, j).Value & ",";
        j = j + 1

    Loop

    Print #1, ws.Cells(i, j).Value & vbCr;
    i = i + 1

Loop

Close #1

MsgBox "data.csvに書き出しました"

End Sub

全体の流れとしては