Добрый день, коллеги, Как можно импортировать в Excel данные из текстовых файлов. В текстовых файлах информация забита строками, их нужно по порядку в столбец "А" Файлов txt порядка 100. Да, еще в каждом txt файле последние 4 строки не нужны для конечного результата.
Прилагаю примерный файл, каких много и они разные по количеству строк.
Помогите пазязя)))
Добрый день, коллеги, Как можно импортировать в Excel данные из текстовых файлов. В текстовых файлах информация забита строками, их нужно по порядку в столбец "А" Файлов txt порядка 100. Да, еще в каждом txt файле последние 4 строки не нужны для конечного результата.
Прилагаю примерный файл, каких много и они разные по количеству строк.
Писать макрос на VBA по этой задачке мне не очень интересно. Поэтому рискну предложить несколько неожиданный способ - практически без Excel
Шаги: 1. Идем на уровень командной строки ОС, например, в файловом менеджере FAR
2. Все файлы складываем в одну папку.
3. В ней же создаем текстовый файл с простым именем типа 0.txt из одной строки -------------------, завершающейся нажатием Enter, чтобы курсор перешёл в начало второй строки. Это будет файл-"разделитель".
4. В папке выполняем команду: dir > dir.txt /b В результате в файле dir.txt оказывается список всех файлов папки.
5. Список файлов помещаем в Excel в столбец А, начиная с ячейки A1. Из списка удаляем наши служебные файлы 0.txt и dir.txt.
8. Формулу ячейки B2 копируем вниз, до конца списка файлов в столбце A.
9. Из самой последней ячейки в столбце B берем результат и через пробел дописываем название результирующего файла. Получается строка примерно такого вида: copy 1.txt + 0.txt + 2.txt + 0.txt + 3.txt + 0.txt + 4.txt + 0.txt + 5.txt + 0.txt + 6.txt + 0.txt + 7.txt REZULTAT.csv
10. Копируем эту строку в командную строку и исполняем. (Возможно придется повторить это несколько раз с разными наборами файлов, если командная строка превысит допустимую длину, но общая идея, думаю, уже ясна)
11. Открываем файл REZULTAT.csv в Excel и "допиливаем" по своему усмотрению (типа удаляем четыре строки перед каждой "пунктирной линией" и саму линию).
Писать макрос на VBA по этой задачке мне не очень интересно. Поэтому рискну предложить несколько неожиданный способ - практически без Excel
Шаги: 1. Идем на уровень командной строки ОС, например, в файловом менеджере FAR
2. Все файлы складываем в одну папку.
3. В ней же создаем текстовый файл с простым именем типа 0.txt из одной строки -------------------, завершающейся нажатием Enter, чтобы курсор перешёл в начало второй строки. Это будет файл-"разделитель".
4. В папке выполняем команду: dir > dir.txt /b В результате в файле dir.txt оказывается список всех файлов папки.
5. Список файлов помещаем в Excel в столбец А, начиная с ячейки A1. Из списка удаляем наши служебные файлы 0.txt и dir.txt.
8. Формулу ячейки B2 копируем вниз, до конца списка файлов в столбце A.
9. Из самой последней ячейки в столбце B берем результат и через пробел дописываем название результирующего файла. Получается строка примерно такого вида: copy 1.txt + 0.txt + 2.txt + 0.txt + 3.txt + 0.txt + 4.txt + 0.txt + 5.txt + 0.txt + 6.txt + 0.txt + 7.txt REZULTAT.csv
10. Копируем эту строку в командную строку и исполняем. (Возможно придется повторить это несколько раз с разными наборами файлов, если командная строка превысит допустимую длину, но общая идея, думаю, уже ясна)
11. Открываем файл REZULTAT.csv в Excel и "допиливаем" по своему усмотрению (типа удаляем четыре строки перед каждой "пунктирной линией" и саму линию).Gustav