ExcelVBA - import ALL files from Folder - NokiaSMS

[shankove]

Hello,
I'm in need to import all files to a single Excel worksheet. In my understanding this is when VBA could help. Unfortunately I cannot find a proper way to use this tool.
****Task description:
- a folder name:
C:\Documents and Settings\Администратор\Мои документы\no way\Mobile
- it contains only files in format *.vmg (the special format when importing sms via Nokia PC Suite)
- I need all the messages from this folder to be displayed on the same worksheet
Now i'm only able to import the files one by one, which is obviously a manual process.

Народ! Буду оч. благодарна за помощь! не могу справиться с задачей! хочу, чтобы содержание всех файлов из заданной папки вывелось на мой Экселевский лист.
Кажется, должен помочь ВБА, но не могу найти функцию (или цикл).

Спасибо...

[oliVer]

Держись, братан, может, на форуме "Visual Basic для мобильных устройств" помогут.

[Денис]

Хаха! Ага прямо так уж и братан? Ха ха!
Вообще есть форум VBA. Вот на нем и помогут.

[Денис]

Извините за топик-ап - сделал, чтобы shankove заметила.
_________________
shankove
Файл формата *.vmg это как я понимаю просто текстовый файл, содержащий данные в виде

Код: Выделить всё

ПАРАМЕТР:ЗНАЧЕНИЕ

тебе нужно вывести его на лист.
если без бейсика это делается так: в экселе жмешь - открыть файл - выбираешь тип - все файлы - ищешь свой *.vmg - открываешь его.
Врубается мастер импорта. Здесь важно упомянуть, что любой неизвестный формат воспринимается экселем, как текстовый файл с разделителями (csv) в связи с чем в мастере выбираешь этот формат, проверяешь кодировку (1251 - кириллица Windows) и в качестве разделителя выбираешь знак :
Ну, если тебе нужно это сделать программно, то тут все наамноого сложнее...

[Lumen]

Ну не очень-то и сложно, откровенно говоря...

[shankove]

Да не.. Фишка не в том, чтобы открыть 1 файлик экселем (это я могу). Главное - чтобы не делать это 147 раз, а запустить программулю, которая бы это за меня сделала.

Дано: директория с N однотипными файликами
На выходе: 1 Эксель Лист, где в каждом столбике содержимое файлика (то есть занимается N столбиков).

Вот с этим я не могу справиться. Чтобы программа перебрала все файлики в одной директории. Ну наверняка это элементарно. Анализировать кучу объектов в одном листе экселя - стопудово стандартная задача.
Друг подсказал "каскад", но я не смогла это найти в ВБА.

Помогите, пожалуйста!

P.S.: когда я нажимаю Открыть с помощью экселя N выделенных файлов, то открывается N рабочих книг. Да, что и ожидалось