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
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