Перенос содержимого txt файлов в разные ячейки одного excel

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Перенос содержимого txt файлов в разные ячейки одного excel (Формулы/Formulas)

savril

Дата: Среда, 25.11.2015, 21:32 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

Доброго времени суток уважаемые!

Ситуация следующая:
Необходимо, данные из многострочных txt файлов, перенести в один excel файл,
т.е. инфо из 1.txt в ячейку А1, инфо из 2.txt в ячейку А2 и так далее... n.txt в ячейку An, при n=>100 ??

Полностью весь текст имеющийся в файле txt нужно уместить в одну ячейку.
Итоговым результатом должен быть один файл excel с данными из txt файлов разложенными по ячейкам с верху вниз.
Подскажите хотя-б направление куда копать?

Ответить

Serge_007

Дата: Среда, 25.11.2015, 21:39 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Цитата savril, 25.11.2015 в 21:32, в сообщении № 1

куда копать?

"Копать", очевидно, в сторону макросов, Excel не умеет того, что Вы хотите

Цитата savril, 25.11.2015 в 21:32, в сообщении № 1

Полностью весь текст имеющийся в файле txt нужно уместить в одну ячейку

В Excel есть ограничения на кол-во символов в ячейке. Не упремся?

ЮMoney:41001419691823 | WMR:126292472390

Ответить

_Boroda_

Дата: Среда, 25.11.2015, 21:47 | Сообщение № 3

Группа: Админы

Ранг: Местный житель

Сообщений: 16912

Репутация: 6616 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Копайте первую функцию по ссылке
http://excelvba.ru/code/txt
А перед этим пробегаетесь по файлам с помощью Dir
http://www.excelworld.ru/stuff/vba_function/files/dir/23-1-0-76
https://msdn.microsoft.com/ru-ru/library/dk008ty4%28v=vs.90%29.aspx

Так для копания достаточно?

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

savril

Дата: Четверг, 26.11.2015, 19:22 | Сообщение № 4

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

Цитата Serge_007, 25.11.2015 в 21:39, в сообщении № 2

В Excel есть ограничения на кол-во символов в ячейке.

в ограничение не упремся

Цитата _Boroda_, 25.11.2015 в 21:47, в сообщении № 3

Так для копания достаточно?

Для копания очень даже достаточно,
тока вот долго это будет, а хочется все и сразу ;))
С написанием макросов никогда не сталкивался

Надеялся что может у кого есть уже что-то готовое для такой задачи, если нет, буду разбираться сам
если что получится, выложу тут, может еще кому пригодится

Ответить

_Boroda_

Дата: Четверг, 26.11.2015, 19:40 | Сообщение № 5

Группа: Админы

Ранг: Местный житель

Сообщений: 16912

Репутация: 6616 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Цитата savril, 26.11.2015 в 19:22, в сообщении № 4

хочется все и сразу

Ловите. Только путь свой поставьте
[vba]

Код

Sub tt()
    f_ = Dir("D:\Стереть\*.txt")
    Set fso = CreateObject("scripting.filesystemobject")
    Do While f_ <> ""
        n_ = n_ + 1
        Set ts = fso.OpenTextFile(f_, 1, True)
        z_ = ts.ReadAll
        Range("A" & n_) = z_
        ts.Close
        f_ = Dir()
    Loop
End Sub

[/vba]

Ответить

savril

Дата: Четверг, 26.11.2015, 21:08 | Сообщение № 6

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

Спасибо большое!

Путь вставил свой.
Выдает ошибку: Input past end of file (Error 62)
и подсвечивает z_ = ts.ReadAll

Сам не могу понять в чем проблема? )
[moder]Не нужно цитировать все сообщение. Об этом в Правилах форума написано

Сообщение отредактировал _Boroda_ - Четверг, 26.11.2015, 21:45

Ответить

Перенос содержимого txt файлов в разные ячейки одного excel (Формулы/Formulas)

Страница 1 из 1
1