Замена filesearch в макросе

Пользователь

Сообщений: 1 Регистрация: 01.01.1970

02.11.2010 14:55:36

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

есть макрос консолидации данных из многих файлов Excel (найден на этом форуме), но он не работает в поздних версиях Excel из-за функции filesearch. Можно его как-то адаптировать под Excel 2007/2010??

файл с макросом приложен

Прикрепленные файлы

post_170523.rar (15.79 КБ)

EducatedFool Пользователь Сообщений: 3695 Регистрация: 23.12.2012	#2 02.11.2010 16:29:08 Вместо filesearch используйте готовую функцию FilenamesCollection Сначала считываете в коллекцию пути к подходящим файлам кодом типа этого: Set coll = FilenamesCollection(ПутьКПапке, ".xls") а потом в цикле перебираете все эти файлы. Код функции можно найти здесь: http://excelvba.ru/code/FilenamesCollection Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Читают тему