用VBA判断指定的excel文件夹或文件是否存在

来源:互联网 时间:2016-01-03

有时我们需要用VBA代码判断某个文件夹或文件是否存在,以便进行后续操作。可以用下面的代码来实现这个功能:

Public Function FileFolderExists(strFullPath As String) As Boolean

On Error GoTo EarlyExit

If Not Dir(strFullPath, vbDirectory) = vbNullString Then FileFolderExists = True

EarlyExit:

On Error GoTo 0

End Function

将上述代码放入标准模块中,如果指定的文件夹或文件存在,FileFolderExists返回True。调用上述代码的方法:

1.判断文件夹是否存在:

Public Sub TestFolderExistence()

If FileFolderExists("c:\windows\") Then

MsgBox "指定的文件夹存在!"

Else

MsgBox "指定的文件夹不存在!"

End If

End Sub

将代码中的“c:\windows\”换成指定的文件夹,“c:\windows\”也可以写成“c:\windows”,即不要后面的“\”。

2.判断文件是否存在:

Public Sub TestFileExistence()

If FileFolderExists("d:\Book1.xls") Then

MsgBox "指定的文件存在!"

Else

MsgBox "指定的文件不存在!"

End If

End Sub

相关阅读:
Top