如何根據excel值建立文件夾

❶ 如何應用EXCEL建立電子文件目錄

實現的方法和詳細的操作步驟如下：

1、第一步，在需要提取文件夾名稱的文件夾中創建一個新的「文本文檔」，如下圖所示，然後進入下一步。

❷ 如何用EXCEL創建文件夾

看圖。

其中第三行代碼：

iPath = ThisWorkbook.Path & "" & Range("A1")

意思是：在該工作簿文件所在的路徑下面，創建以A1值為名稱的文件夾。

如果需要指定其他路徑，可改為下面的形式：

iPath = "D:學習資料初二" & Range("A1")

這樣修改後的意思是：在"D:學習資料初二"這個路徑下面，創建以A1值為名稱的文件夾。

【為了方便你復制，貼出完整代碼如下】：

Sub 創建文件夾()

Dim iPath$

iPath = ThisWorkbook.Path & "" & Range("A1")

If MsgBox("確定要創建文件夾嗎？" & Chr(13) & "創建路徑：" & Chr(13) & iPath, vbYesNo) = vbYes Then

If Dir(iPath, vbDirectory) = "" Then '如果沒有同名文件夾那麼：

MkDir iPath: SetAttr iPath, 0 '創建文件夾

MsgBox "文件夾已創建成功！" & Chr(13) & Chr(13) & iPath, , "提示"

Else '否則

MsgBox "文件夾已存在，無需創建！" & Chr(13) & Chr(13) & iPath, , "提示"

End If

End If

End Sub