ファイルを一行ずつ読み込むLine InputはCR+LFじゃないと一行判定できない

ExcelVBA

LFだけだと全部一気に読み込まれちゃう

Split()使ってLFで分解するとかしましょう。

'CSVファイルの取り込み　LFコードでスプリット→カンマでスプリットするパターン
Sub getCSV2()

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

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

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

Open strPath For Input As #1 'csvファイルをオープン
    Line Input #1, strLine 'CRコードがないので1行取り込めばCSVファイル全てを取り込める
Close #1

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

For i = 0 To UBound(tmp)
    arrLine = Split(tmp(i), ",")　'tmp(i)をカンマで区切りarrLineに格納
    For j = 0 To UBound(arrLine)
        ws.Cells(i + 1, j + 1).Value = arrLine(j)
    Next j
Next i

End Sub

ネタ元