有時在工作中需要批量創(chuàng)建指定名稱的文件夾，如果數(shù)量較多，例如要創(chuàng)建幾十、甚至幾百個文件夾，用手動的方法很難完成。批量創(chuàng)建文件夾的工具有很多，如果一時手頭沒有這類工具，可以在Excel中用VBA來完成，方法如下：
1.新建一個工作簿，在A列中輸入要創(chuàng)建的文件夾名稱，在B1單元格中輸入文件夾所在的有效路徑，如“d:\新建文件夾”。
2.按Alt+F11，打開VBA編輯器。在右側(cè)的代碼窗口中輸入下列代碼：
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.運(yùn)行上述代碼，即可批量創(chuàng)建指定名稱的文件夾。
