Как проверить, существует ли файл или папка на вашем компьютере с помощью Excel VBA?

Сегодняшнее руководство по автоматизации Office посвящено тому, как проверить, существует ли файл в одном из каталогов вашего компьютера.

Подготовка

Если вы новичок в кодировании, убедитесь, что вкладка разработки Microsoft Office Excel включена и вы знакомы с некоторыми базовыми средствами Excel VBA .

Проверка существования файла с помощью Excel VBA

Следующий код использует поля ввода для захвата пути к файлу, а также самого имени файла от пользователя.

Затем он использует метод Dir , чтобы проверить, действительно ли существует путь к файлу.

Наконец, он отображает окно сообщения пользователю с результатом проверки.

Sub Check_file_exists()

Dim NameDir As String
Dim NameFile As String

'Capture the file path and name from the users
NameDir = InputBox("Enter file directory")
NameFile = InputBox("Enter file name")

'Check whether the file exists
If (Dir(NameDir & NameFile)) = "" Then
    MsgBox ("File doesn't exist")

    Else
    
    MsgBox ("File exists")
    End If
End Sub

Проверить, существует ли папка

Аналогичным образом вы можете проверить, существует ли определенная папка в вашей операционной системе. Также здесь мы используем метод Dir , но с параметром vbDirectory .

Sub Check_folder_exists()

Dim NameDir As String

NameDir = InputBox("Enter file directory")


If (Dir(NameDir, vbDirectory)) = "" Then
    MsgBox ("Folder doesn't exist")

    Else
    
    MsgBox ("Folder exists")
    End If
End Sub

Использование кода

• Откройте Microsoft Excel и перейдите к своей книге.
• Нажмите «Разработчик», а затем нажмите «Visual Basic».
• Скопируйте и вставьте приведенный выше код как подпрограмму на любом конкретном листе вашего модуля VBA.
• Запустите (F5) код.
• Сохраните книгу.

Возможные расширения

Приведенный выше шаблонный код можно расширить для следующих случаев использования:

• Создайте папку/файл, если он еще не существует.
• Удалите файл или папку, если они присутствуют в каталоге файлов вашей операционной системы.
• Поиск файлов/папок с использованием подстановочного знака.