excel创建多级文件夹

发布网友 发布时间：2022-03-17 04:19

我来回答

共2个回答

热心网友 时间：2022-03-17 05:48

每一行逐层创建文件夹就可以了，假设数据如图所示，可使用下面的代码批量创建。

Sub CreateFolder()
    Dim iRow As Long
    Dim iPath As String
    For iRow = 1 To Range("A" & Rows.Count).End(xlUp).Row
        iPath = Cells(iRow, 1).Text & "\" & Cells(iRow, 2).Text
        If Dir(iPath, vbDirectory) = "" Then MkDir iPath
        iPath = Cells(iRow, 1).Text & "\" & Cells(iRow, 2).Text & "\" & Cells(iRow, 3).Text
        If Dir(iPath, vbDirectory) = "" Then MkDir iPath
    Next iRow
    MsgBox "Complete!"
End Sub

运行效果：

追问非常感谢，请问这个代码怎么用？在哪里用？

追答

Alt+F11打开VBE编辑器，插入--模块，复制粘贴代码。

返回工作表界面，Alt+F8运行CreateFolder宏，或者插入图形后，右键图形指定宏，单击运行。

详情可以参考附件。

热心网友 时间：2022-03-17 07:06

你自己都说完了还不会做吗.一级右键重命名"朝阳----点开它右键新建文件夹---重命名北苑下面一样的操作追问您说的是手工操作？？