Question

多个txt文件导入excel中时，Open FileName(t) For Input As #i语句出错

多个txt文件导入excel中时，Open FileName(t) For Input As #i语句出错，请高手指点。

Answer 1

Sub My()
Dim FileName As String
Dim Content$, ContentArr, i&
i = 0
FileName = Dir("C:\*.txt")
Do While FileName <> ""
Open "C:\" & FileName For Input As #1
Content = StrConv(InputB(LOF(1), #1), vbUnicode) & vbCrLf & Content
Close #1
ContentArr = Split(Content, vbCrLf)
[A1].Resize(UBound(ContentArr), 1) = Application.Transpose(ContentArr)
FileName = Dir
Loop
End Sub