我们主要使用VBA中的Dir方法来判断文件是否存在。
Dir函数返回的是文件名、目录名或文件夹名称。
这里还使用了Len方法判断Dir是否返回了结果。
如果Dir返回的值长度为0，则Dir没有返回文件名。
Sub Run()
Dim filePath As String
filePath = "C:\Users\Administrator\Desktop\Merge_Sheet\test.txt"
If IsFileExists(filePath) = True Then
' 文件存在时的处理
MsgBox "文件存在！"
Else
' 文件不存在时的处理
MsgBox "文件不存在！"
End If
End Sub
'函数名：IsFileExists
'接受参数：strFileName → 需判断是否存在的文件的完整路径
'返回值：Boolean → 存在返回True，不存在返回False
Private Function IsFileExists(ByVal strFileName As String) As Boolean
If Len(Dir(strFileName)) <> 0 Then
IsFileExists = True
Else
IsFileExists = False
End If
End Function
————————————————
版权声明：本文为CSDN博主「慕琦琦」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.csdn.net/wangzz0427/article/details/86768431