Excel VBA 建立目錄 MkDir 函數教學與範例

介紹如何使用 Excel VBA 的 MkDir 函數建立目錄。

建立目錄

如果要在 Excel 中以 VBA 巨集程式建立目錄，可以使用 MkDir 函數，其用法很簡單，呼叫 MkDir 函數之後，指定目錄的路徑即可。

MkDir "C:\OfficeGuideTmpFolder"

在呼叫 MkDir 函數建立目錄時，如果指定的目錄已經存在，就會產生「路徑或檔案存取錯誤」的錯誤訊息。

所以通常在建立目錄時，都會搭配 Dir 函數來檢查目錄是否已經存在：

' 確認目錄不存在
If Len(Dir("C:\OfficeGuideTmpFolder", vbDirectory)) = 0 Then
  MkDir "C:\OfficeGuideTmpFolder"
End If

建立多層目錄

如果需要一次建立多層新的目錄，除了使用迴圈逐層建立之外，可以考慮使用 Shell 呼叫外部的 mkdir 自動建立目錄：

Dim folder As String

' 多層目錄
folder = "C:\OfficeGuideTmpFolderABC"

' 自動建立多層目錄
Shell ("cmd /c mkdir """ & folder & """")

參考資料：AnalystCave