按列将文本文件数据导入excel工作表所需的VBA代码

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

（每个数据位于文本文件中的换行符上）

我需要将此数据“按列”导入excel文件

---

请帮忙。

可能类似于：

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

---

欢迎来到Stackoverflow。不幸的是，这不是一个适合这里的方法。你能提供一些代码吗？你还研究和/或尝试了什么？请先表现出你的努力，这样其他人可能会帮助你。另外，请阅读和