Страницы: 1
RSS
Поиск и копирование файлов в проводнике
 
Добрый день,    
 
Имеется файл Excel со списком имен файлов (может быть как цифровое, так и текстовое название)  
Расширение файлов - любое  
Имеется папка с вложенными в ней подпапками, в которых лежат эти файлы.  
 
Возможно ли написать процедуру, которая будет искать файлы из списка по полному или частичному совпадению имени в папке и подпапках, если находит, копировать их в заранее указанную пользователем папку.  
 
Такое возможно ватоматизировать через VBA ? Может, кто-то уже делал что-то подобное?  
 
Спасибо,
 
http://forum.ixbt.com/topic.cgi?id=23:38561  
http://excelvba.ru/code/FilenamesCollection  
 
первое, что нашел гугл...
 
1) получаете коллекцию, содержащую имена нужных файлов:  
http://excelvba.ru/code/FilenamesCollection  
http://excelvba.ru/programmes/Consolidation  
 
 
2) В цикле перебираете все файлы в коллекции, и копируете их в нужную папку:  
 
  ' копируем файлы  
   ПапкаДляКопирования = "C:\Documents and Settings\Admin\Рабочий стол\123\"  
   For i = 1 To coll.Count    ' перебираем все элементы коллекции, содержащей пути к файлам  
       FileCopy coll(i), ПапкаДляКопирования & Dir(coll(i))  ' копируем файл  
       DoEvents    ' временно передаём управление ОС  
   Next
Страницы: 1
Читают тему
Наверх