需要VBA代码才能将文本文件数据导入到excel表中

Question

我有一个包含一些数据的文本文件，如下所示： 22343 4.3 Linux版

（每个数据都在文本文件的换行符中）

我需要将此数据“Column-Wise”导入excel文件 请帮忙。

Answer 1

也许是这样的：

Sub ImportFile()
    Close #1
    Open "C:\TestFolder\TestFile.txt" For Input As #1
    j = 1
     Do While Not EOF(1)
            Line Input #1, TextLine
            Cells(j, 1) = TextLine
            j = j + 1
        Loop
    Close #1
End Sub