如何使用vba检查文件是否存在（带有示例）

您可以使用 VBA 中的Dir函数来检查特定文件夹中是否存在特定文件。

以下是在实践中使用此语句的常见方法：

 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 检查此文件夹中是否存在名为Football_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删除文件