excel利用VBA批量创建指定名称的文件夹

来源:转载

有时在工作中需要批量创建指定名称的文件夹,如果数量较多,例如要创建几十、甚至几百个文件夹,用手动的方法很难完成。批量创建文件夹的工具有很多,如果一时手头没有这类工具,可以在Excel中用VBA来完成,方法如下:

1.新建一个工作簿,在A列中输入要创建的文件夹名称,在B1单元格中输入文件夹所在的有效路径,如“d:\新建文件夹”。

2.按Alt+F11,打开VBA编辑器。在右侧的代码窗口中输入下列代码:

Sub BatchCreatFolders()

Dim rCel As Range

For Each rCel In ThisWorkbook.Worksheets("Sheet1").UsedRange.Columns(1).Cells

On Error Resume Next

'B1单元格为新建文件夹所在的路径

MkDir Range("B1").Text & "\" & rCel.Text

Next

End Sub

3.运行上述代码,即可批量创建指定名称的文件夹。

分享给朋友:
您可能感兴趣的文章:
随机阅读: