如何在 Excel 中檢查資料夾內是否存在特定檔案，若存在便將其刪除？

作者Siluvia修改日期2024-12-05

本教學將教您運用 VBA 腳本，在 Excel 中檢查指定資料夾內是否存在特定檔案，若存在，便自動將其刪除。

使用 VBA 程式碼在 Excel 中檢查資料夾內是否存在某檔案，若存在則予以刪除

下列 VBA 腳本可協助您檢查指定檔案是否位於資料夾中，若存在則自動刪除。請依照以下步驟操作：

1. 在開啟的 Excel 工作表中，按下 Alt+F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗。

2. 在 Microsoft Visual Basic for Applications 視窗中，點擊 Insert > Module，即可開啟 Module (Code)視窗，並將下列 VBA 腳本複製其中。

Excel 中 Microsoft Visual Basic for Applications 視窗的螢幕截圖，顯示「Insert loading=」 Module option" class="mobile-first" />

VBA 程式碼：檢查指定資料夾內是否存在某檔案，若存在則予以刪除

Sub CheckFileThenDelete()
'Updated by Extendoffice 20221024
Dim FilePath As String
    FilePath = "C:\Users\Win10x64Test\Desktop\save attachments\aaa.xlsx"
    
    If Dir(FilePath) <> "" Then
    MsgBox "The file exists in the folder, click the OK button to delete it.", vbInformation, "Kutools for Excel"
        Kill FilePath
    Else
    If Dir(FilePath) = "" Then
    MsgBox "The file does not exist.", vbInformation, "Kutools for Excel"
    End If
    End If
End Sub

注意：在 VBA 程式碼中，C:\Users\Win 10x 64Test\Desktop\save attachments\aaa.xlsx 是您要檢查是否存在之檔案的路徑。在此範例中，我們將檢查名為「aaa」的 Excel 檔案是否位於桌面的「save attachments」資料夾中。您可以依需求自由變更檔案路徑與副檔名。

3. 按下 F5 鍵，立即執行程式碼！

4. 若該檔案存在，將會出現如下方截圖所示的 Kutools for Excel 對話框。點擊 OK 按鈕，即可從資料夾中移除此檔案。

Kutools for Excel 對話方塊的螢幕截圖，提示使用者確認刪除檔案

若資料夾中不存在文件，也會彈出另一個 Kutools for Excel 對話框提醒您。

Kutools for Excel 對話方塊的螢幕截圖，顯示檔案不存在時的警示

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多