エクセルVBAでダブルクォーテーションで囲まれているCSVファイルを取り込む

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

エクセルVBAでCSVファイルを取り込む方法シリーズです。

前回はCSVファイルの改行コードがLFの場合にエクセルVBAで上手にデータを取り込む方法についてお伝えしました。

エクセルVBAでCSV取込み～改行がされないパターンの対処法

エクセルVBAでCSVファイルを取り込む方法シリーズ。今回は、CSVをワークシートに取り込んだときに改行されずに一行になってしまうパターンについてどう回避するかについてお伝えしたいと思います。

さて、CSV。

本来、色々なソフトウェアでデータを簡単にやりとりをするためのフォーマットなのですが、けっこう色々なパターンが存在しちゃっているんですね…。

今回はまた別の例として、データがダブルクォーテーションで囲まれているパターンのCSVをエクセルVBAで取り込む方法についてお伝えしたいと思います。

では、行ってみましょう！

一般的なCSVファイルを取り込むプログラムのおさらい
データがダブルクォーテーションで囲われているパターン
ダブルクォーテーションを含むCSVを取り込むプログラム
1. ダブルクォーテーションをReplaceで削除する
まとめ
連載目次：エクセルVBAで色々なCSVファイルを取り扱う

一般的なCSVファイルを取り込むプログラムのおさらい

まずは一般的なCSVファイルを取り込むプログラムについて、おさらいをしておきたいと思います。

Sub getCSV()

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

Dim strPath As String
strPath = "C:\Users\Noriaki\Dropbox\40_ブログ\vba-csv\test\ラーメン店アンケート_dq.csv"

Dim i, j As Long
Dim strLine As String
Dim arrLine As Variant 'カンマでsplitして格納

Open strPath For Input As #1 'csvファイルをオープン

i = 1
Do Until EOF(1)

    Line Input #1, strLine
    arrLine = Split(strLine, ",") 'strLineをカンマで区切りarrLineに格納

    For j = 0 To UBound(arrLine)

        ws.Cells(i, j + 1).Value = arrLine(j)

    Next j
    i = i + 1
Loop

Close #1

End Sub

CSVのレコードを1行ずつ取り込んで、Splitでカンマで分割して配列に格納。
配列に格納した要素をワークシートのセルに書き込んでいく、というプログラムです。

詳しくはこちらの記事で紹介しています。

エクセルVBAでCSVデータをカンマで区切ってワークシートに取り込む方法

エクセルVBAでCSVを取り込む方法です。今回は、Splitという命令と配列を使ってCSVのレコードをカンマで区切ってワークシートに転記をしていく方法について解説をしていきます。

データがダブルクォーテーションで囲われているパターン

例えばこのようなCSVファイルが存在します。

データがダブルクォーテーションで囲まれていますね。

実はこのケースは結構出くわすパターンです。

例えばデータ要素にカンマや改行（LFやCR）が含まれているときは、そのままでは取り扱えなくなってしまいます。

そんなときのため、データ要素をダブルクォーテーションで囲うことで取り扱えるようにするわけですね。

しかしながら、このタイプのCSVファイルを上記のgetCSVで取り込むと

当然こうなります。

これでは数値の集計はできませんね…。

では、対応するプログラムを作っていきましょう。

ダブルクォーテーションを含むCSVを取り込むプログラム

ダブルクォーテーションを削除しつつCSVデータを取り込むプログラムはこちらです。

'CSVファイルの取り込み　一行ずつ取得しカンマでスプリットする最も定番なパターン
Sub getCSV()

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

Dim strPath As String
strPath = "C:\Users\Noriaki\Dropbox\40_ブログ\vba-csv\test\ラーメン店アンケート_dq.csv"

Dim i, j As Long
Dim strLine As String
Dim arrLine As Variant 'カンマでsplitして格納

Open strPath For Input As #1 'csvファイルをオープン

i = 1
Do Until EOF(1)

    Line Input #1, strLine
    arrLine = Split(Replace(strLine, """", ""), ",") 'strLineをカンマで区切りarrLineに格納

    For j = 0 To UBound(arrLine)

        ws.Cells(i, j + 1).Value = arrLine(j)

    Next j
    i = i + 1
Loop

Close #1

End Sub

…どこを変えたかわかりますか？

なんと変更したのは一行だけです。

20行目ですね。