用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.运行上述代码，即可批量创建指定名称的文件夹。
    单击此处下载xls格式的示例文件。