VBA实用小程序58： 判断文件是否存在

学习Excel技术，关注微信公众号：

excelperfect

下面的自定义函数接受一个代表文件完整路径的字符串作为参数，验证是该文件是否存在。

自定义函数FileExists的代码：

'参数FilePath:代表文件完整路径的字符串

'文件存在,函数返回True,否则返回False

FunctionFileExists(FilePath As String) As Boolean

Dim strExists As String

strExists = ""

On Error Resume Next

strExists = Dir(FilePath)

On Error GoTo 0

If strExists <> "" Then

FileExists = True

End If

End Function

这是一个通用程序，可以在使用VBA代码试图打开一个文件前，调用该函数判断这个文件是否存在，然后再采取下一步的操作。

下面的代码来测试FileExists函数：

Sub test()

Dim str As String

str = "D:\附件13g.pdf"

If FileExists(str) Then

MsgBox "文件" & str & "存在."

Else

MsgBox "文件" & str & "不存在."

End If

End Sub

FileExists函数代码的图片版如下：