Загрузить несколько текстовых файлов в Excel

Старая форма входа

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

konstantinp

Дата: Понедельник, 13.08.2012, 12:48 | Сообщение № 1

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

Ранг: Участник

Сообщений: 86

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

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

Добрый день,
Долго не могу найти подходящий макрос, много чего просмотрел в сети - ничего не подходит, либо не работает.
В общем: нужен макрос, который загружает в Excel все данные из всех имеющихся txt файлов в папке по очереди (файлов до 50).
Пример думаю не нужен, и так понятно.

Помогите пазязя)))

Ответить

KuklP

Дата: Понедельник, 13.08.2012, 12:55 | Сообщение № 2

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

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

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

2003-2010

Quote

Пример думаю не нужен, и так понятно.

Да конечно не нужен. Мы и сами нарисуем за Вас все файлы. И текстовые, и xls...

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Ответить

RAN

Дата: Понедельник, 13.08.2012, 12:57 | Сообщение № 3

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

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

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

2010

http://excelvba.ru/code/DATfolder2Array
Комментарии, наверное, излишни, и так все понятно.

Быть или не быть, вот в чем загвоздка!

Ответить

konstantinp

Дата: Понедельник, 13.08.2012, 12:58 | Сообщение № 4

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

Ранг: Участник

Сообщений: 86

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

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

KuklP,
xls - пустой, txt - абсолютно любой текст. Не пойму сарказма...

Ответить

konstantinp

Дата: Понедельник, 13.08.2012, 13:01 | Сообщение № 5

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

Ранг: Участник

Сообщений: 86

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

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

RAN,
Видел это тему. Дело в том что не понятно)))

Ответить

konstantinp

Дата: Понедельник, 13.08.2012, 13:04 | Сообщение № 6

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

Ранг: Участник

Сообщений: 86

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

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

RAN,
Да и еще, нужно текст не разбивать по столбцам.

Ответить

RAN

Дата: Понедельник, 13.08.2012, 13:09 | Сообщение № 7

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

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

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

2010

Quote (konstantinp)

xls - пустой, txt - абсолютно любой текст. Не пойму сарказма...

Быть или не быть, вот в чем загвоздка!

Ответить

konstantinp

Дата: Понедельник, 13.08.2012, 13:12 | Сообщение № 8

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

Ранг: Участник

Сообщений: 86

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

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

RAN,
Можете все же помочь?

Ответить

konstantinp

Дата: Понедельник, 13.08.2012, 13:17 | Сообщение № 9

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

Ранг: Участник

Сообщений: 86

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

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

Пример

К сообщению приложен файл: 9804819.rar (3.7 Kb)

Сообщение отредактировал konstantinp - Понедельник, 13.08.2012, 13:17

Ответить

Hugo

Дата: Понедельник, 13.08.2012, 13:53 | Сообщение № 10

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3690

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

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

365

Почему именно макрос?
Вполне можно обойтись одной строкой - выполнить её можно как сумеете, из bat/cmd-файла или в Тоталкомандере/FAR'е:

copy /b *.txt all.xls

Ну и далее даблклик по этому all.xls (который является текстовым файлом с неправильным расширением для более простого открытия в Экселе), затем пересохранить уже как "правильный" xls.

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD