使用TextToColumns的文本要优秀，只复制第一个记录

Question

VBA中的新手（excel）我理解从文件中获取值的代码，但只将文件中的第一条记录传输到excel。代码如下：

LineIndex = 0
Erase strLine()
Open myMainFile For Input As #1
   While Not EOF(1)
     LineIndex = LineIndex + 1
     ReDim Preserve strLine(1 To LineIndex)
     Line Input #1, strLine(LineIndex)
     MsgBox strLine(LineIndex)
 Wend
Close #1
.
.
.
With Nw.Worksheets(Mid(FileCol.Cells(i).Value, 7, 4)).Range("A1").Resize     (LineIndex, 1).Value = WorksheetFunction.Transpose(strLine)
             .TextToColumns Destination:=.Cells(1), DataType:=xlDelimited, _
             TextQualifier:=xlTextQualifierNone,     ConsecutiveDelimiter:=False, _              Tab:=True, Semicolon:=False,     Comma:=False, Space:=False 
.
.
.

我很难理解第二个代码块，我相信这是导致错误的代码块。文件映像文件是我需要传输到excel的示例文件

sample file

代码的Excel输出是它只获取附加文本的第一行