VBA 检查文件是否存在

在 VBA 中，我们可以使用 File 系列函数来检查文件是否存在。具体来说，我们可以使用 Dir 函数或 FileSystemObject 对象中的 FileExists 方法来实现文件检查功能。

使用 Dir 函数来检查文件是否存在

Dir 函数可以根据特定的文件路径和文件名，返回第一个匹配的文件名。如果没有匹配的文件，则返回一个空字符串。我们可以通过判断 Dir 函数返回值是否为空字符串来判断指定的文件是否存在。

以下是一个使用 Dir 函数检查文件是否存在的 VBA 代码示例：

Function FileExistsUsingDir(filePath As String) As Boolean
    FileExistsUsingDir = (Dir(filePath) <> "")
End Function

上述代码中的 FileExistsUsingDir 函数接收一个文件路径作为输入，使用 Dir 函数检查该文件是否存在，并返回一个布尔值表示文件是否存在。

需要注意的是，上述代码只能检查当前目录下的文件是否存在。如果需要检查其他目录下的文件是否存在，需要在文件路径中指定目标文件所在的目录。

使用 FileSystemObject 对象来检查文件是否存在

另一种检查文件是否存在的方法是使用 FileSystemObject 对象中的 FileExists 方法。FileSystemObject 对象需要通过 VBA 中的 CreateObject 函数创建和获取，需要引用 Microsoft Scripting Runtime 库。

以下是一个使用 FileSystemObject 对象检查文件是否存在的 VBA 代码示例：

Function FileExistsUsingFSO(filePath As String) As Boolean
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    FileExistsUsingFSO = fso.FileExists(filePath)
    Set fso = Nothing
End Function

上述代码中的 FileExistsUsingFSO 函数接收一个文件路径作为输入，使用 FileSystemObject 对象检查该文件是否存在，并返回一个布尔值表示文件是否存在。

与使用 Dir 函数相比，使用 FileSystemObject 对象可以方便地检查任意目录下的文件是否存在。同时，FileSystemObject 对象还提供了更多的文件和文件夹操作方法。

总结

在 VBA 中，我们可以使用 Dir 函数或 FileSystemObject 对象来检查文件是否存在。使用 Dir 函数可以方便地检查当前目录下的文件是否存在，而使用 FileSystemObject 对象可以检查任意目录下的文件是否存在，并提供更多的文件和文件夹操作方法。