Excel_VBA 逐行获取文本文件的行数据，并拆分成列

Public Sub  13_008()
    Dim Filename As Variant, myText, mArr() As String
    Dim i As Long, j As Long
    Filename = ThisWorkbook.Path & "\myStudents.csv"      '指定文件字符串
    j = 1
    With Worksheets("sheet1")
        .Cells.ClearContents
        Open Filename For Input As #1
        Do While Not EOF(1)
            Line Input #1, myText    ' 读入一行数据并将其赋予某变量
            mArr = Split(myText, ",")    '按逗号分开这个字符，循环赋值给单元格
            For i = 0 To UBound(mArr)
                .Cells(j, i + 1) = mArr(i)
            Next i
            j = j + 1
        Loop
        Close #1    ' 关闭文件。
    End With
End Sub