Як перевірити, чи існує файл або папка на вашому комп’ютері за допомогою 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) код.
• Збережіть свою робочу книгу.

Можливі розширення

Код таблички котла вище можна розширити для наступних випадків використання:

• Створіть папку/файл, якщо він ще не існує.
• Видаліть файл папки, якщо він є в каталозі файлів вашої операційної системи.
• Пошук файлів/папок за допомогою символу підстановки.