Excel VBA 判断文件是否存在

在编写 VBA 代码时，经常需要判断文件是否存在。本篇文章将介绍在 Excel VBA 中如何判断文件是否存在并给出代码示例。

判断文件是否存在

判断文件是否存在的方法是使用 Dir 函数，该函数接受一个文件路径作为参数，返回该文件路径下的文件名。如果文件不存在，则返回空字符串。

示例代码：

Sub CheckFileExistence()
    Dim filePath As String
    filePath = "C:\example\test.txt"
    If Dir(filePath) = "" Then
        MsgBox "文件不存在！"
    Else
        MsgBox "文件存在！"
    End If
End Sub

在示例代码中，我们使用了 Dir 函数来判断文件是否存在。首先，定义一个字符串变量 filePath，表示要判断的文件路径。然后，通过 Dir(filePath) 函数获取在该路径下的文件名。如果返回值为空字符串，则表示文件不存在，否则表示文件存在。

在判断文件存在后，我们可以执行需要的操作，例如读取文件内容、复制文件等。

注意事项

在使用 Dir 函数时，我们需要注意以下事项：

• Dir 函数只能判断文件是否存在，不能判断目录是否存在。
• 文件路径需使用绝对路径，不能使用相对路径。例如，Dir("example\test.txt") 是错误的，应该写成 Dir("C:\example\test.txt")。
• 当文件处于被占用状态时，Dir 函数返回空字符串，因此不能仅依靠 Dir 函数判断文件是否被锁定。

总结

在 Excel VBA 中，使用 Dir 函数可以轻松判断文件是否存在。在判断文件存在后，我们可以执行需要的操作。但需要注意的是，Dir 函数只能判断文件是否存在，不能判断目录是否存在，同时需要使用绝对路径。