Как проверить, существует ли файл с помощью vba (с примером)

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

Вот распространенный способ использования этого утверждения на практике:

 SubCheckFileExists ()

'ask user to type path to file
InputFile = InputBox(" Check if this file exists: ")

'check if file exists and output results to message box
If Dir(InputFile) <> "" Then
    MsgBox “ This File Exists ”
Else
    MsgBox “ This File Does Not Exist ”
End If

End Sub

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

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

В следующем примере показано, как использовать этот синтаксис на практике.

Пример: проверьте, существует ли файл с помощью VBA.

Предположим, у нас есть папка, расположенная по следующему адресу:

C:\Users\bob\Documents\current_data

Эта папка содержит три файла CSV:

Допустим, мы хотим использовать VBA, чтобы проверить, существует ли в этой папке файл с именем Soccer_data.csv .

Для этого мы можем создать следующий макрос:

 SubCheckFileExists ()

'ask user to type path to file
InputFile = InputBox(" Check if this file exists: ")

'check if file exists and output results to message box
If Dir(InputFile) <> "" Then
    MsgBox “ This File Exists ”
Else
    MsgBox “ This File Does Not Exist ”
End If

End Sub

Как только мы запустим этот макрос, появится поле ввода, в котором мы можем ввести путь к файлу:

Мы введем полный путь к файлу Soccer_data.csv :

Как только мы нажмем «ОК» , появится окно сообщения, в котором будет сообщено, существует ли файл в указанной нами папке:

Окно сообщения сообщает нам, что файл существует.

Примечание . Полную документацию по функции Dir можно найти здесь .

Дополнительные ресурсы

В следующих руководствах объясняется, как выполнять другие распространенные задачи в VBA:

Как создавать папки с помощью VBA
Как удалить папки с помощью VBA
Как удалить файлы с помощью VBA