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

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

修法布施得聪明智慧，多分享让生活更美好。上次分享了《Excel怎样快速把数据表生成工资条格式新表》，介绍了快速把数据表生成工资条格式新表处理方法。下面分享批量新建文夹快速处理方法。

0Excel怎样快速把数据表生成工资条格式新表

上次分享了《Excel怎样批量列举文件夹名》经验，将《Excel怎样批量列举文件夹名.xlsm》文件名另存为《Excel怎样快速批量新建文件夹.xlsm》（演示文件，下面代码复制到能运行宏的工作簿都可以）如图。

3Excel怎样批量列举文件夹名

然后按下快捷键ALT+F11打开VBE（宏）编辑界面，然后在模块1代码框最后复制如下代码：

Sub 批量新建文件夹()

'2020-10-26 22:10:20

Dim mp As String, i As Long

mp = Range("B3").Text & "\"

On Error Resume Next

If Range("B" & Rows.Count).End(xlUp).Row = 4 Then Exit Sub

For i = 5 To Range("B" & Rows.Count).End(xlUp).Row

If Range("B" & i).Text <> "" Then

MkDir mp & Range("B" & i).Text

End If

Next i

MsgBox "完成"

End Sub

以上操作动态过程如下：

例：“ 数据”文件夹下有四个文件夹，将这四个文件在另文件夹“工程”下新建。

回到工作表窗口： 首先在B1、B3填写文件夹路径，点下【列举文件夹名】命令按钮，列出所有文件夹名。再运行【 批量新建文件夹】宏，“工程”文件夹新建四个文夹名，运行过程如下图。

如果觉得这篇经验帮到了您，请点击下方的 “投票点赞" 或者“收藏”支持我！还有疑问的话可以点击下方的 “我有疑问”，谢谢啦！