VBA Excel. Список файлов в папке

Получение списка файлов в указанной папке с помощью кода VBA Excel. Коллекция Files объекта Folder, возвращенного методом FileSystemObject.GetFolder.

Содержание

1. Коллекция Files объекта Folder

2. Получение списка файлов в папке

2.1. Пример 1

2.2. Пример 2

Коллекция Files объекта Folder

Для получения списка файлов в указанной папке используется свойство Files объекта Folder. Объект Folder в VBA Excel возвращается методом GetFolder объекта FileSystemObject по полному имени папки в качестве аргумента.

Если в указанной папке нет файлов, применение свойства Folder.Files приведет к возникновению ошибки. Для корректного завершения программы используйте обработчик ошибок или условие, проверяющее наличие файлов в папке.

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

Пример 1

Код VBA Excel для получения списка файлов в указанной папке и записи полных имен файлов в массив (с поздней привязкой объектов к переменным):

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

'Просматриваем первый элемент массива

MsgBox myFiles(1)

End Sub

Используемые переменные:

fso – ссылка на экземпляр объекта FileSystemObject;
myPath – полное имя папки;
myFolder – ссылка на объект Folder (папка);
myFile – ссылка на один объект File из коллекции myFolder.Files;
myFiles() – массив для записи имен файлов;
i – счетчик элементов массива.

Пример 2

Получение списка файлов в указанной папке и запись имен файлов в ячейки первого столбца рабочего листа Excel (с ранней привязкой объектов к переменным):

Sub Primer2()

Dim myPath, myFolder As Folder, myFile As File, i