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

Posted by obzor under VBA

Есть файлы тхт — много… у всех название в виде кода 28004, 77005 и тп.
Внутри каждого файла 2 колонки с цифрами разделенные пробелом:
11968 2
77077 5
1258974 6
и т.д.
Как бы так сделать чтобы все эти файлы можно было импортировать в Excel и получить таблицу вида:
«название файла» 28004 (1 ячейка)/ 11968 (2 ячейка)/ 2 (3 ячейка)
и так далее «название файла»./……./……

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

Не подскажете куда этот код вставлять?

Serge_Bliznykov

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

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

тема на форуме

Похожие статьи

• Ping из VBA
• Progress bar или индикация выполнения макроса в Microsoft Office Excel
• Запретить ввод пробелов в ячейки Excel
• Массовое переименование label на форме
• Вынести часть текста из многострочной ячейки по условию (Excel)
• Копирование данных в Excel «отталкиваясь» от последней заполненой строки
• Вставка данных в Excel после последней заполненной ячейки
• Как в Excel посчитать количество дней, прошедших с заданного числа
• Копирование данных «отталкиваясь» от последней заполненной строки Excel
• Как вытащить URL адрес из формулы с гиперссылкой в Excel