![]() |
Модераторы: mihanik |
![]() ![]() ![]() |
|
Mrak |
|
|||
![]() Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 259 Регистрация: 16.10.2004 Репутация: нет Всего: 5 |
Доброго времени суток!
Нужно реализовать на vba и вывести полученный результать в табицу экселя. Имеется вот такая структура папок km\zap\proekt\bank\pr ... еще много таких же ... km\td\proekt\bank\pr Как найти все файлы раслоложенные только в папках bank? Очень надо, помогите пожалуйста ) -------------------- Смерть - не противоположность жизни, а лишь ее часть. (Х. Мураками) |
|||
|
||||
RockClimber |
|
||||||||
Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 848 Регистрация: 5.5.2006 Где: планета 013 в тен туре Репутация: 7 Всего: 15 |
К сожалению, сижу на ноуте с линухом. Дома экселя нет, на виндовую машину надо ставить, а сейчас немного не до того. Поэтому немного теории. Для поиска файлов в VBA используется объект FileSearch. Для начала объявляем переменную:
У объекта FileSearch есть несколько атрибутов, с помощью которых можно задать параметры поиска: папку поиска, расширение файлов, искать во вложенных папках и т. д. (На память названия атрибутов не помню, но в справке все было вроде) Потом выполняем собственно поиск:
Тут я не помню - execute это процедура или функция. Если функция, то строка должна выглядеть так:
Переменная found будет содержать число найденных файлов. После этого (опять провал в памяти) в один из атрибутов объекта FileSearch помещается список имен найденных файлов. В цикле их можно обработать примерно так (надо использовать функцию, которая ищет подстроку в строке; ее название я тоже не помню ![]()
Переменная r задает номер строки, в которую будет выводиться имя файла, i - счетчик цикла. Их можно описать любым целым типом (Long, Byte и т. д.) Cells(x,y) - это ячейка экселя в строке x и столбце y. Если до завтрашнего утра никто не напишет ничего более толкового, пойду ставить эксель... -------------------- Хорошо кинутый дятел далеко летит, крепко встревает, долго торчит. |
||||||||
|
|||||||||
SquarePants |
|
|||
Новичок Профиль Группа: Участник Сообщений: 6 Регистрация: 9.2.2007 Репутация: нет Всего: нет |
Спасибо, мысль понятна, разберусь ))
|
|||
|
||||
RockClimber |
|
|||
Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 848 Регистрация: 5.5.2006 Где: планета 013 в тен туре Репутация: 7 Всего: 15 |
SquarePants и Mrak - один человек???
![]() Эксель я так и не поставил. В понедельник на работе освежу воспоминания... -------------------- Хорошо кинутый дятел далеко летит, крепко встревает, долго торчит. |
|||
|
||||
![]() ![]() ![]() |
Правила форума "Программирование, связанное с MS Office" | |
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще!
|
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | Программирование, связанное с MS Office | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |