【VBA】CSV読み込み。カンマを含む文字データをsplitで分割する。

CSVの文字データにカンマが含まれる場合

1,”カンマ,を含む文字”

これをVBAで読み込もうとする場合、Splitで単純にカンマ分割するとこんな感じの分割になってしまいます。

1列目：1
2列目：”カンマ
3列目：を含む文字”

これをSplitで何とかやろうとする場合のサンプル。

Sub main()

    Dim InFilePath As String '入力ファイルパス
    Dim i, j As Integer
    Dim str As String
    Dim splitString As Variant
    
    InFilePath = ActiveWorkbook.Path & "\testdata.csv"
    Open InFilePath For Input As #1
    
    'ファイル読み込み
    Do While Not EOF(1)
        Line Input #1, str
        splitString = csvSplit(str)    
        For j = 0 To UBound(splitString) - 1
            Debug.Print i + 1 & "行目 " & j + 1 & "列目 : " & splitString(j)
        Next j    
        i = i + 1
    Loop
    Close #1
End Sub

'カンマ区切り分割処理
Function csvSplit(ByVal str As String) As Variant

    Dim i As Integer
    Dim arrayCnt As Integer
    Dim s As String '1文字分
    Dim data As String '1データ分
    Dim doubleQuoteFlag As Boolean 'True=ダブルクォートの中、False=ダブルクォートの外
    Dim retArray() As String

    For i = 1 To Len(str)
        '1文字ずつ判定
        s = Mid(str, i, 1)
        If s = """" Then
            'ダブルクォートの場合、中⇔外を反転
            doubleQuoteFlag = Not doubleQuoteFlag    
        ElseIf s = "," And doubleQuoteFlag Then
            'ダブルクォートの中のカンマはデータとして扱う
            data = data & s
        ElseIf s = "," And Not doubleQuoteFlag Then
            'ダブルクォートの外のカンマ発見で区切り
            arrayCnt = arrayCnt + 1
            ReDim Preserve retArray(arrayCnt)
            retArray(arrayCnt - 1) = data
            data = ""
        Else
            data = data & s
        End If
    Next i
    
    If Not data = "" Then
        '最終列のデータを配列に格納
        arrayCnt = arrayCnt + 1
        ReDim Preserve retArray(arrayCnt)
        retArray(arrayCnt - 1) = data
    End If
    
    csvSplit = retArray
End Function

Sub main()

Dim InFilePath As String '入力ファイルパス

Dim i, j As Integer

Dim str As String

Dim splitString As Variant

InFilePath = ActiveWorkbook.Path & "\testdata.csv"

Open InFilePath For Input As #1

'ファイル読み込み

Do While Not EOF(1)

Line Input #1, str

splitString = csvSplit(str)

For j = 0 To UBound(splitString) - 1

Debug.Print i + 1 & "行目 " & j + 1 & "列目 : " & splitString(j)

Next j

i = i + 1

Loop

Close #1

End Sub

'カンマ区切り分割処理

Function csvSplit(ByVal str As String) As Variant

Dim i As Integer

Dim arrayCnt As Integer

Dim s As String '1文字分

Dim data As String '1データ分

Dim doubleQuoteFlag As Boolean 'True=ダブルクォートの中、False=ダブルクォートの外

Dim retArray() As String

For i = 1 To Len(str)

'1文字ずつ判定

s = Mid(str, i, 1)

If s = """" Then

'ダブルクォートの場合、中⇔外を反転

doubleQuoteFlag = Not doubleQuoteFlag

ElseIf s = "," And doubleQuoteFlag Then

'ダブルクォートの中のカンマはデータとして扱う

data = data & s

ElseIf s = "," And Not doubleQuoteFlag Then

'ダブルクォートの外のカンマ発見で区切り

arrayCnt = arrayCnt + 1

ReDim Preserve retArray(arrayCnt)

retArray(arrayCnt - 1) = data

data = ""

Else

data = data & s

End If

Next i

If Not data = "" Then

'最終列のデータを配列に格納

arrayCnt = arrayCnt + 1

ReDim Preserve retArray(arrayCnt)

retArray(arrayCnt - 1) = data

End If

csvSplit = retArray

End Function

実行結果がこちら。

testdata.csv
1,”テスト１行目”
2,”テスト,２行目”

出力結果
1行目 1列目 : 1
1行目 2列目 : テスト１行目
2行目 1列目 : 2
2行目 2列目 : テスト,２行目

ちなみに上記サンプルコードは、下記に書き換えることもできます（書き方が適当なので、少し汎用性が無くなりますが・・）。

Sub main()

    Dim InFilePath As String '入力ファイルパス
    Dim i As Integer
    Dim col1, col2 As String
    
    'ファイル選択ダイアログ
    InFilePath = ActiveWorkbook.Path & "\testdata.csv"
    
    Open InFilePath For Input As #1
    
    '入力ファイル読み込み→出力ファイル書き込み
    Do While Not EOF(1)
        Input #1, col1, col2
        Debug.Print i + 1 & "行目 " & "1列目 : " & col1
        Debug.Print i + 1 & "行目 " & "2列目 : " & col2
        i = i + 1
    Loop
    
    Close #1
End Sub

Sub main()

Dim InFilePath As String '入力ファイルパス

Dim i As Integer

Dim col1, col2 As String

'ファイル選択ダイアログ

InFilePath = ActiveWorkbook.Path & "\testdata.csv"

Open InFilePath For Input As #1

'入力ファイル読み込み→出力ファイル書き込み

Do While Not EOF(1)

Input #1, col1, col2

Debug.Print i + 1 & "行目 " & "1列目 : " & col1

Debug.Print i + 1 & "行目 " & "2列目 : " & col2

i = i + 1

Loop

Close #1

End Sub

Line Inputで行を抜き出さなくてもInputで値を抜き出せば、文字データに含まれるカンマもちゃんと文字として扱ってくれるようです。タブ区切りもこれでイケるみたいですね。