如何根据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