макросы в excel vba макросы поиск файлов в папке

Поиск файлов в папке

Находим файлы в определённой папке по заданной маске.

Dim strDirPath, strMaskSearch, strFileName as String
strDirPath = "C:/test/" 'Папка поиска
strMaskSearch = "*.xls*" 'Маска поиска

'Получаем первый файл соответствующий шаблону
strFileName = Dir(strDirPath & strMaskSearch) 

'До тех пор пока файлы "не закончатся"
Do While strFileName <> "" 
 MsgBox strFileName 
 strFileName = Dir 'Следующий файл
Loop

А вот здесь можно найти несколько макросов для проверки существования файлов или папок.