vba 判断文件是否存在

在VBA（Visual Basic for Applications）中，你可以使用`FileSystemObject`来检查文件或文件夹是否存在。以下是一个简单的示例代码片段，用于判断指定路径的文件是否存在：

Sub CheckFileExists()
    Dim fso As Object
    Dim filePath As String
    Dim fileExists As Boolean
    
    ' 设置你要检查的文件路径
    filePath = "C:\path\to\your\file.txt"
    
    ' 创建FileSystemObject实例
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 使用Exists方法检查文件是否存在
    fileExists = fso.FileExists(filePath)
    
    ' 如果文件存在，打印或执行相应的操作
    If fileExists Then
        MsgBox "文件 " & filePath & " 存在。"
    Else
        MsgBox "文件 " & filePath & " 不存在。"
    End If
    
    ' 清理对象
    Set fso = Nothing
End Sub

在这个例子中，`fso.FileExists(filePath)`会返回`True`如果文件存在，否则返回`False`。执行这段代码后，你可以根据`fileExists`变量的值来决定下一步的操作。