VBAでデータにカンマが含まれている、改行コードがLFのCSVを取り込みたい

Question

##やりたいこと
以下のようなCSVファイルをエクセルにインポートしたい。

• データは「""」で囲まれている
• 改行コードはLF
• データ内に「,」や「:」が含まれている

##やってみたコード

Sub Import()
    
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets(1)
    
    Dim myFile As Variant
    ChDir "C:\vba"
    myFile = Application.GetOpenFilename("CSVファイル(*.csv),*.csv")
    
    Dim i, j As Long
    Dim strLine As String
    Dim arrLine As Variant
    
    'csvファイルをオープン
     Open myFile For Input As #1

    i = 1
    Do Until EOF(1)
        Line Input #1, strLine
        'strLineを=で区切りarrLineに格納
        arrLine = Split(Replace(replaceColon(strLine), """", ""), "=")
        For j = 0 To UBound(arrLine)
            ws.Cells(i, j + 1).Value = arrLine(j)
        Next j
        i = i + 1
    Loop
    Close #1
End Sub


'受け取った文字列のカンマをコロンに置き換える
'ダブルクォーテーションで囲まれているカンマは置き換えない
Function replaceColon(ByVal str As String) As String

    Dim strTemp As String
    Dim quotCount As Long
    
    Dim l As Long
    'strの長さだけ繰り返す
    For l = 1 To Len(str)
    
        'strから現在の1文字を切り出す
        strTemp = Mid(str, l, 1)
        'strTempがダブルクォーテーションなら
        If strTemp = """" Then
            'ダブルクォーテーションのカウントを1増やす
            quotCount = quotCount + 1
        'strTempがカンマなら
        ElseIf strTemp = "," Then
            'quotCountが2の倍数なら
            If quotCount Mod 2 = 0 Then
                '現在の1文字を=に置き換える
                str = Left(str, l - 1) & "=" & Right(str, Len(str) - l)
            End If
        End If
    Next l
    
    replaceColon = str

End Function

##結果
CSVの改行コードをCRLFにするとうまくいくが、LFの場合すべてのデータが改行されず1行目に格納されてしまいました。

以下参考サイトサンプルではコロン「:」で区切っていたようですが、本CSVデータには日時のデータも含まれているため、コロンを使用するとそこでデータが区切られセルに格納されてしまいました。そのため代わりに「=」を使用しました。

##参考サイト
https://tonari-it.com/vba-csv-camma/

改行コードがLFでもきちんとエクセル内にインポートされるにはどのように改変したらよいのでしょうか。

Answer 1

以下参考
LFコードで改行したファイルを読み込む

Comments

[singlestroke]

こんな感じですかね。

'1行取り込めばCSVファイル全て取り込める
Open myFile For Input As #1
Line Input #1, buf
Close #1

'bufをLFコードで区切りtmpに格納
tmp = Split(buf, vbLf)

For i = 0 To UBound(tmp) - 1
tmp2 = Split(Replace(replaceColon(tmp(i)), """", ""), "=")
Cells(i + 1, 1).Resize(1, UBound(tmp2) + 1).Value = tmp2
Next i

[sazi]

データ内にLFが含まれていないならそんな感じですね。

[singlestroke]

もしデータ内に改行があった場合のヒントだけいただいてもよろしいでしょうか。

[sazi]

リンク先にコードがありますよ。

Answer 2

Line Input #1, strLine の値をsplit関数で処理してはどうでしょうか。

Comments

[singlestroke]

Line Input #1, strLine
strLine = Split(strLine, vbLf)

とすると「型が一致しません」となってしまうのですが。

[mdj]

split関数の戻り値の型を調べてください。strLineとは型が異なります。
saziさんがご回答されている方法で進めることで問題ないとは思いますが、何故「型が一致しません」なのかを理解しておくほうが良いかなと思います