如何用EXCEL创建文件夹?

发布网友 发布时间：2022-04-22 20:34

我来回答

共2个回答

热心网友 时间：2023-04-29 07:17

看图。

其中第三行代码：

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

追答答案已更新

热心网友 时间：2023-04-29 07:18

Excel怎样快速批量新建文件夹