エクセルVBAで、データ内に改行コード・カンマが含まれるCSVの取り込み

前提・実現したいこと

エクセルVBAで、データ内に改行コード・カンマが含まれるCSVの取り込み

エクセルVBAを用いて、データ内に改行コードやカンマが含まれるCSVの取り込みを行うマクロを組みたいです。
『下記CSVを下記エクセルファイル（A1～E1で1列、A2~B2で2列のような取り込み方法）の通りデータを読み込ませたい』

どのようなソースコードを書けばよいかご教示いただけないでしょうか。

発生している問題・エラーメッセージ

・データ内に改行コードが含まれるCSVの取り込み
https://www.moug.net/tech/exvba/0060089.html

・データ内にカンマが含まれるCSVの取り込み
https://tonari-it.com/vba-csv-camma/

上記の通りそれぞれのソースコードは上記等のコードを参考にすれば対応可能なのですが、
組み合わせた際、うまくデータを取り込むことができません。

該当のソースコード

Dim buf As String, tmp As Variant, n As Long
Dim arrLine As Variant 'LF改行コードでsplitして格納 buf=strLine,
Dim x As Long, y As Long, z As Long '変数
Open myFile For Input As #1 '読み込みファイルの確定

   Line Input #1, buf     '項目読み込み
   z = z + 1

  tmp = Split(buf, vbLf)

For x = 0 To UBound(tmp)

arrLine = Split(Replace(replaceColon(tmp(x)), """", ""), ":") 'tmp(x)をカンマで区切りarrLineに格納　'replaceColonをFunctionで作成
For y = 0 To UBound(arrLine)
Cells(x + 1, y + 1).Value = arrLine(y)
Next y
Next x

      Close #1

補足情報（FW/ツールのバージョンなど）

Win10/Excel2016

行動規範の内容に同意します

回答1件

ベストアンサー

Line Inputでは１行ずつしか読み込めないので、全テキストを一気に読み込んでから分割するのがいいでしょう。一気に読み込む方法は、いろいろ方法かありますがmougの参考リンクでも一番高速といっているGetステートメントを使ってみました。

行区切りを引用符＋改行("""" & vbCrLf)
列区切りを引用符＋カンマ＋引用符(""",""")
とすればうまく分割できます。

vba
1Public Sub test()
2    Dim buf() As Byte
3    Dim tmp As Variant, tmp2 As Variant
4    Dim i As Long
5    
6    Open "C:\TEST\TEST.txt" For Binary As #1
7        ReDim buf(1 To LOF(1))
8        Get #1, , buf
9    Close #1
10    
11    tmp = Split(StrConv(buf, vbUnicode) & vbCrLf, """" & vbCrLf)
12    For i = 0 To UBound(tmp) - 1
13        tmp2 = Split(tmp(i), """,""")
14        tmp2(0) = Replace(tmp2(0), """", "")
15        Cells(i + 1, 1).Resize(1, UBound(tmp2) + 1).Value = tmp2
16    Next i
17End Sub