如何檢查資料夾是否存在，若不存在則自動建立？

作者Xiaoyang修改日期2025-10-09

在許多辦公流程中，您可能需要先確認特定資料夾是否存在，再透過 Excel 儲存檔案或整理資料。手動執行此步驟不僅耗時，尤其在管理大量資料夾或規劃自動化流程時更顯不便。若能自動檢查資料夾是否存在，並於必要時自動建立，不僅可簡化檔案管理，更能有效避免資料匯出或批次處理過程中發生意外錯誤。

本教學將逐步引導您實作以下方法：

使用 VBA 程式碼檢查特定檔案路徑中是否存在資料夾

使用 VBA 程式碼在特定檔案路徑中建立不存在的資料夾

使用 VBA 程式碼檢查特定檔案路徑中是否存在資料夾

常見需求之一，是在特定目錄中檢查資料夾是否已存在——尤其是在匯出報告、儲存附件，或為批次處理準備目錄之前。雖然 Excel 本身未內建直接從工作表檢查資料夾是否存在的功能，但透過 VBA 巨集，您就能快速偵測指定位置是否有該資料夾。

當您只需驗證資料夾是否存在，而不對檔案系統進行任何變更時，此方法尤為適用。VBA 程式碼能以簡潔直接的方式執行檢查，並立即顯示結果。

操作步驟：

1. 按住 ALT+F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗。

2. 點選插入＞模組，並將下列程式碼貼到模組視窗中：

VBA 程式碼：檢查特定檔案路徑中是否存在資料夾：

Sub Test_Folder_Exist_With_Dir()
'Updateby Extendoffice
    Dim sFolderPath As String
    sFolderPath = "C:\Users\DT168\Desktop\Test folder"
    If Right(sFolderPath, 1) <> "\" Then
        sFolderPath = sFolderPath & "\"
    End If
    If Dir(sFolderPath, vbDirectory) <> vbNullString Then
        MsgBox "Folder exist", vbInformation, "Kutools for Excel"
    Else
        MsgBox "Folder doesn't exist", vbInformation, "Kutools for Excel"
    End If
End Sub

注意：在上述程式碼中，您需將文件路徑與名稱 C:\Users\DT 168\Desktop\Test folder 修改為您要檢查的目錄路徑。請確保輸入正確且完整的資料夾位址，以免影響執行結果！

3. 輸入程式碼後，按下 F5 執行巨集，結果將以提示方塊顯示，告知指定資料夾是否存在。例如：

按下 F5 鍵執行此程式碼以取得結果

此方法特別適用於在執行檔案操作或資料匯出前進行初步檢查。但由於它不會建立資料夾，因此僅適用於您只需偵測、無需變更檔案或目錄的情況。

若您需要反覆檢查不同的檔案路徑，建議修改程式碼，或提示使用者動態輸入檔案路徑，以提升彈性。務必再次確認檔案路徑拼字正確，並確保您擁有存取該目錄的適當權限，避免執行階段錯誤。

透過 KUTOOLS AI 解鎖 Excel 的神奇功能

智慧執行：透過簡易指令，輕鬆執行儲存格操作、分析資料，並建立圖表！
自訂公式：打造專屬公式，讓您的工作流程更順暢！
VBA 編碼：輕鬆撰寫並套用 VBA 程式碼，立即提升工作效率！
公式解析：輕鬆掌握複雜公式！
文字翻譯：輕鬆打破試算表中的語言隔閡！

運用 AI 驅動的工具強化您的 Excel 能力。立即下載體驗前所未有的高效！

使用 VBA 程式碼在特定檔案路徑中建立不存在的資料夾

有時您可能希望 Excel 不僅能檢查資料夾是否存在，還能在資料夾不存在時自動建立，以減少人為干預。這非常適合用於自動化檔案輸出前的資料夾準備工作，確保工作流程順暢不中斷，並有效降低因目錄缺失所引發的錯誤。

當您在資料夾結構初始狀態不確定的情況下執行巨集或資料匯出任務時，此解決方案尤為適用。它能確保所有必要資料夾皆已就緒，才啟動後續操作。

操作步驟：

1. 按住 ALT+F11 鍵以開啟 Microsoft Visual Basic for Applications 視窗。

2. 點選插入> 模組，並將下列程式碼貼到模組視窗中：

VBA 程式碼：在檔案路徑中建立不存在的資料夾：

Sub MakeMyFolder()
'Updateby Extendoffice
    Dim fdObj As Object
    Application.ScreenUpdating = False
    Set fdObj = CreateObject("Scripting.FileSystemObject")
    If fdObj.FolderExists("C:\Users\DT168\Desktop\Test folder") Then
        MsgBox "Found it.", vbInformation, "Kutools for Excel"
    Else
        fdObj.CreateFolder ("C:\Users\DT168\Desktop\Test folder")
        MsgBox "It has been created.", vbInformation, "Kutools for Excel"
    End If
    Application.ScreenUpdating = True
End Sub

注意：請將程式碼中的文件路徑與名稱 C:\Users\DT 168\Desktop\Test folder 更新為您實際要建立的目錄。務必仔細確認目錄路徑輸入正確，並選擇您擁有寫入權限的位置，以避免系統錯誤！

3. 貼上程式碼後，按下 F5 即可執行：

（1.）若資料夾已存在，系統將顯示如下提示方塊：

如果資料夾存在，將會彈出提示框

（2.）若資料夾不存在，巨集將自動於指定路徑建立新資料夾，並以另一則提示確認已成功建立，如下圖所示：

如果資料夾不存在，將會在指定路徑下建立

此簡化操作特別適合用於重複性的匯出或備份任務，能有效避免因資料夾缺失而導致錯誤或中斷工作流程。

請注意：若您嘗試在受保護或不存在的父目錄中建立資料夾，VBA 可能會回報錯誤。若遇到此類錯誤，請務必再次確認您的路徑設定與使用者權限是否正確。

預防措施與常見疑難排解：

務必仔細檢查 VBA 指令碼中的檔案路徑格式！路徑必須正確且完整，並以反斜線（）\) 分隔各目錄層級。
請確認您對該目錄具備必要的權限；若缺少寫入權限，VBA 程式碼在建立資料夾時可能會失敗。
若要在不同電腦上執行程式碼，請留意使用者資料夾結構（例如：「C:\Users\DT 168」）可能有所不同，並據此調整相關路徑。
建議為 VBA 加入輸入方塊，讓使用者能自行輸入路徑，使巨集更具彈性且更友善。
若遇到「找不到路徑」或「拒絕存取」等錯誤，請確認父目錄是否存在且具有存取權限。
建議您先備份重要資料，並在樣本資料夾中測試 VBA 程式，確認運作無誤後，再套用至正式環境的目錄。

根據您的特定需求，將這些方法與 Excel 環境無縫整合，無論是透過簡易巨集或替代的檔案處理方式，都能高效管理資料夾的檢查與建立，自動化重複性任務、避免匯出失敗，並確保日常 Excel 工作流程更加順暢。

最佳 Office 生產力工具

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