一、通过FileExists判断文件是否存在

Dim MyFile As Object

Set MyFile = CreateObject("Scripting.FileSystemObject")

If MyFile.FileExists("E:dzwebsPiclogo.gif" ) = True Then

MsgBox "文件存在"

Else

MsgBox "文件不存在"

End If

以上代码在VBA环境下使用。或者将其制作成为宏也可以。"E:dzwebsPiclogo.gif"为文件路径及文件名称，可自行修改。

二、通过Dir来判断

Dim YouFile As String

YouFile = Dir("E:MyPicturesPiclogo.gif")

If x <> "" Then

MsgBox "文件存在"

Else

MsgBox "文件不存在"

Endif

"E:MyPicturesPiclogo.gif"为文件路径及文件名称，可自行修改。当然，如上代码，也在VBA下使用，可自作成为宏或函数都可以。