Получение списка файлов в указанной папке с помощью кода VBA Excel. Коллекция Files объекта Folder, возвращенного методом FileSystemObject.GetFolder.
Коллекция Files объекта Folder
Для получения списка файлов в указанной папке используется свойство Files объекта Folder. Объект Folder в VBA Excel возвращается методом GetFolder объекта FileSystemObject по полному имени папки в качестве аргумента.
Если в указанной папке нет файлов, применение свойства Folder.Files приведет к возникновению ошибки. Для корректного завершения программы используйте обработчик ошибок или условие, проверяющее наличие файлов в папке.
Получение списка файлов в папке
Пример 1
Код VBA Excel для получения списка файлов в указанной папке и записи полных имен файлов в массив (с поздней привязкой объектов к переменным):
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
Sub Primer1() Dim fso, myPath, myFolder, myFile, myFiles(), i 'Записываем в переменную myPath полное имя папки myPath = "C:\DATA\Текущая папка" 'Создаем новый экземпляр FileSystemObject Set fso = CreateObject("Scripting.FileSystemObject") 'Присваиваем переменной myFolder ссылку на объект Folder Set myFolder = fso.GetFolder(myPath) 'Проверяем, есть ли файлы в папке myFolder If myFolder.Files.Count = 0 Then MsgBox "В папке «" & myPath & "» файлов нет" Exit Sub End If 'Задаем массиву размерность ReDim myFiles(1 To myFolder.Files.Count) 'Загружаем в массив полные имена файлов For Each myFile In myFolder.Files i = i + 1 myFiles(i) = myFile.Path Next 'Просматриваем первый элемент массива MsgBox myFiles(1) End Sub |
Используемые переменные:
- fso – ссылка на экземпляр объекта FileSystemObject;
- myPath – полное имя папки;
- myFolder – ссылка на объект Folder (папка);
- myFile – ссылка на один объект File из коллекции myFolder.Files;
- myFiles() – массив для записи имен файлов;
- i – счетчик элементов массива.
Пример 2
Получение списка файлов в указанной папке и запись имен файлов в ячейки первого столбца рабочего листа Excel (с ранней привязкой объектов к переменным):
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
Sub Primer2() Dim myPath, myFolder As Folder, myFile As File, i 'Записываем в переменную myPath полное имя папки myPath = "C:\DATA\Текущая папка" 'Создаем новый экземпляр FileSystemObject Dim fso As New FileSystemObject 'Присваиваем переменной myFolder ссылку на объект Folder Set myFolder = fso.GetFolder(myPath) 'Проверяем, есть ли файлы в папке myFolder If myFolder.Files.Count = 0 Then MsgBox "В папке «" & myPath & "» файлов нет" Exit Sub End If 'Записываем имена файлов в первый столбец активного листа For Each myFile In myFolder.Files i = i + 1 Cells(i, 1) = myFile.Name Next End Sub |
Ранняя привязка позволяет использовать подсказки свойств и методов объектов при написании кода VBA Excel.