Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.06.2010, 13:39   #1
coder082
 
Регистрация: 04.06.2010
Сообщений: 3
Радость Перебор файлов Excel

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

Вопрос состоит в следующем как мне в макросе Excel получить список файлов по маске ".xls" из кататога откуда я открыл файл напрмер "консолидация.xls" ?
coder082 вне форума Ответить с цитированием
Старый 04.06.2010, 13:41   #2
coder082
 
Регистрация: 04.06.2010
Сообщений: 3
По умолчанию

//server1/nev folder/консолидация.xls
coder082 вне форума Ответить с цитированием
Старый 04.06.2010, 15:40   #3
doober
Старожил
 
Аватар для doober
 
Регистрация: 02.05.2009
Сообщений: 3,907
По умолчанию

Макрос в каком файле будет находиться.Список куда выводить
Анализ,обработка данных Недорого
doober вне форума Ответить с цитированием
Старый 04.06.2010, 16:07   #4
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Посмотрите здесь: http://excelvba.ru/code/FilenamesCollection
Там есть и функция, и пример её использования.

Только замените строку ПутьКПапке = CreateObject("WScript.Shell").Speci alFolders("Desktop")
на строку ПутьКПапке = thisworkbook.Path

и строку Set coll = FilenamesCollection(ПутьКПапке, ".txt", 3)
на строку Set coll = FilenamesCollection(ПутьКПапке, ".xls", 1)

Последний раз редактировалось EducatedFool; 04.06.2010 в 16:10.
EducatedFool вне форума Ответить с цитированием
Старый 08.06.2010, 11:21   #5
coder082
 
Регистрация: 04.06.2010
Сообщений: 3
По умолчанию

Большое спасибо, очень помогло.
coder082 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Импорт TXT файлов в Excel Per4eLO Microsoft Office Excel 7 08.02.2017 19:33
сохранение файлов excel по ячейке Keaf Microsoft Office Excel 13 05.10.2009 18:39
перебор файлов Ralf_ru Общие вопросы Delphi 11 31.03.2009 14:23
Найти названия файлов из Excel АLексаNдр Microsoft Office Excel 27 10.11.2008 16:55
Печать pdf файлов из списка файлов в Excel АПС Microsoft Office Excel 5 15.04.2008 16:04