如何使用 Excel VBA 檢查計算機中是否存在文件或文件夾？

今天的辦公自動化教程的重點是學習如何驗證文件是否存在於您的一個計算機目錄中。

準備

如果您對編碼有點陌生，請確保啟用了 Microsoft Office Excel 開發選項卡並且您熟悉一些基本的 Excel VBA。

使用 Excel VBA 檢查文件是否存在

以下代碼利用輸入框從用戶那裡捕獲文件的路徑以及文件名本身。

然後它利用Dir方法來驗證文件路徑是否確實存在。

最後，它會向用戶顯示一個帶有檢查結果的消息框。

Sub Check_file_exists()

Dim NameDir As String
Dim NameFile As String

'Capture the file path and name from the users
NameDir = InputBox("Enter file directory")
NameFile = InputBox("Enter file name")

'Check whether the file exists
If (Dir(NameDir & NameFile)) = "" Then
    MsgBox ("File doesn't exist")

    Else
    
    MsgBox ("File exists")
    End If
End Sub

檢查文件夾是否存在

以非常相似的方式，您可以檢查操作系統中是否存在特定文件夾。同樣在這裡，我們利用Dir方法，但使用vbDirectory參數。

Sub Check_folder_exists()

Dim NameDir As String

NameDir = InputBox("Enter file directory")


If (Dir(NameDir, vbDirectory)) = "" Then
    MsgBox ("Folder doesn't exist")

    Else
    
    MsgBox ("Folder exists")
    End If
End Sub

使用代碼

• 打開 Microsoft Excel 並導航到您的工作簿。
• 點擊開發人員，然後點擊 Visual Basic。
• 將上面的代碼作為子例程複製並粘貼到 VBA 模塊的任一特定工作表中。
• 運行 (F5) 代碼。
• 保存您的工作簿。

可能的擴展

上面的樣板代碼可以針對以下用例進行擴展：

• 如果文件夾/文件不存在，請創建它。
• 刪除文件夾文件，前提是它們存在於您的操作系統文件目錄中。
• 使用通配符搜索文件/文件夾。