Sub OneTxt() '打开一个txt文件
Dim Filename As Variant, extLine&, mArr() As String
Dim i%, j%
ChDir ThisWorkbook.Path
Filename = Application.GetOpenFilename("Text Files (*.txt), *.txt", , "请选取档案", , MultiSelect:=True)
j = 1
For k = 1 To UBound(Filename)

If Filename(k) = False Then Exit Sub '最后一个选项MultiSelect等于false表示只能选择一个文件，如下面的等于true可以选择多个文件
'选择多个文件的时候是一个数组，需要循环打开，一个的时候就是字符串

With Worksheets("sheet1")
'.Cells.ClearContents '删除第一个表的内容
Open Filename(k) For Input As #1 ' 以只读的方式打开文件，参考open方法的帮助
Do While Not EOF(1) ' 循环至文件尾。
Line Input #1, TextLine ' 读入一行数据并将其赋予某变量
mArr = Split(TextLine, ",") '按空格分开这个字符，循环赋值给单元格
For i = 0 To UBound(mArr)
.Cells(j, i + 2) = mArr(i) '此处参考split函数的帮助
Next i
.Cells(j, 1) = Dir(Filename(k)) '等于文件名
j = j + 1
Loop

Close #1 ' 关闭文件。

End With
Next k
End Sub