用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小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。