有時(shí)在工作中需要批量創(chuàng)建指定名稱的文件夾，如果數(shù)量較多，例如要?jiǎng)?chuàng)建幾十、甚至幾百個(gè)文件夾，用手動(dòng)的方法很難完成。批量創(chuàng)建文件夾的工具有很多，如果一時(shí)手頭沒有這類工具，可以在Excel中用VBA來完成，方法如下：

1.新建一個(gè)工作簿，在A列中輸入要?jiǎng)?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)建指定名稱的文件夾。

單擊此處下載xls格式的示例文件。