Как импортировать несколько текстовых файлов, сохраненных в определенную папку, в Excel на одном листе, один столбец, разные строки для каждого файла?

Question

У меня есть папка, которая содержит около 50 небольших текстовых файлов.Что мне нужно, это импортировать их в один лист Excel один под другим.Я должен начать с:

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 и содержимого в столбце B на листе 1 (начиная со строки 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