excel - 如何将保存到特定文件夹的多个文本文件导入到Excel中的一个工作表一列，每个文件的不同行？

Question

我有一个包含大约 50 个小 txt 文件的文件夹。我需要的是把它们导入一张一张一张的一张一张的一张一张的。我应该从:

textfile1.txt

line1
line2
line3
line4

textfile2.txt

line1
line2
line3
line4

textfile3.txt

line1
line2
line3
line4

textfile4.txt

line1
line2
line3
line4

等等...

我想结束的是:



它基本上应该看起来像一个目录，其中 A 列中的文件名和 B 列同一行中相应文件的整个文本。整个文件的文本需要粘贴到一个单元格中。

Answer 1

这将读取指定目录中的所有文件，并将它们作为文本文件读取，输出 A 列中的文件名和工作表 1 上 B 列中的内容(从第 2 行开始)。注意:不包括错误检查。

Sub Test()
    Call ScanDir("C:\temp\test2\")
End Sub


Private Sub ScanDir(ByVal DirPath As String)
    Dim oCurFile As String
    oCurFile = Dir(DirPath)

    Dim oCurRow As Long
    oCurRow = 2
    Dim oFile As String
    Do While oCurFile <> ""
        Open DirPath & oCurFile For Input As #1
        oFile = Input(LOF(1), 1)
        Close #1

        Sheet1.Cells(oCurRow, 1).Value = oCurFile
        Sheet1.Cells(oCurRow, 2).Value = oFile

        oCurFile = Dir()
        oCurRow = oCurRow + 1
        oFile = ""
    Loop
End Sub