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.運行上述代碼，即可批量創建指定名稱的文件夾。

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