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

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

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

Public Function FileFolderExists(strFullPath As String) As Boolean

On Error GoTo EarlyExitIf 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\") ThenMsgBox "指定的文件夹存在！"ElseMsgBox "指定的文件夹不存在！"End If

End Sub

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

2.判断文件是否存在：

Public Sub TestFileExistence()

If FileFolderExists("d:\Book1.xls") ThenMsgBox "指定的文件存在！"ElseMsgBox "指定的文件不存在！"End If

End Sub

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。