Импорт TXT файлов в Excel

[Per4eLO]

Приветствую всех знатоков!
Помогите человеку далекому от любого программирования
Есть файлы тхт - много... у всех название в виде кода 28004, 77005 и тп.
Внутри каждого файла 2 колонки с цифрами разделенные пробелом:
11968 2
77077 5
1258974 6
и т.д.
Как бы так сделать чтобы все эти файлы можно было импортировать в Excel и получить таблицу вида:
"название файла" 28004 (1 ячейка)/ 11968 (2 ячейка)/ 2 (3 ячейка)
и так далее "название файла"./......./......
Знаю метод только простого импорта в excel - но так только содержание файла, без название и каждый файл в ручную, а их более 100 ежемесячно...
Буду премного благодарен за помощь

[doober]

Я думаю этот код спасет пальцы от мозолей.Текстовые файлы должны быть в одной папке с файлом Ексель

Sub Import()
    On Error Resume Next
 Set oFSO = CreateObject("Scripting.FileSystemObject")
    folder = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, "")

  name_T = Dir(folder & "*.txt")
    While name_T <> ""
 Dim n, RW As Long
Dim s, rez, Txt
Dim namme_F As String
 Txt = oFSO.OpenTextFile(folder & name_T, 1, False).readall
   s = Split(Txt, vbCrLf, -1)
   namme_F = Replace(name_T, ".txt", "")
   ReDim xx(1 To UBound(s) + 1, 1 To 3)
   RW = Sheets("Лист1").UsedRange.Rows.Count + Sheets("Лист1").UsedRange.Row - 1
   ddd = Sheets("Лист1").UsedRange.Row
   For n = 0 To UBound(s)
    rez = Split(s(n), " ", -1)
    xx(n + 1, 1) = namme_F: xx(n + 1, 2) = rez(0)
     xx(n + 1, 3) = rez(1): Next
   Sheets("Лист1").Range("A" & RW + 1 & ":c" & RW + n) = xx
   
         name_T = Dir
    Wend
 oFSO = Nothing
End Sub

Добавил вложение.

[Per4eLO]

Уважаемый doober
Не подскажите куда этот код вставлять?

[Serge_Bliznykov]

в Excel - Alt-F11 - откроется редактор Visual Basic
слева по вашему листу правой кп.мыши - Isert Module (или просто по листу двойной щелчёк)
справа в окошко вставить данный код

вызывать Сервис - Макросы - .... вашмакрос_ Выполнить

[Per4eLO]

Уважаемые doober и Serge_Bliznykov!
Огромное спасибо!
Как плюсануть? что-то в правилах не нашел...

[doober]

[Анатолий Баулин]

Сообщение от Serge_Bliznykov

в Excel - Alt-F11 - откроется редактор Visual Basic
слева по вашему листу правой кп.мыши - Isert Module (или просто по листу двойной щелчёк)
справа в окошко вставить данный код

вызывать Сервис - Макросы - .... вашмакрос_ Выполнить

Объясните пожалуйста чайнику куда вставлять код? я не могу разобраться...

[Aleksandr H.]

Сообщение от Анатолий Баулин

я не могу разобраться...

а пробовал? https://www.youtube.com/watch?v=xtgmhhKZlNM