1、將上述
1120015
1120016
1120019
粘貼到Excel表，從A1單元格開始。
2、Alt + F11
3、插入—模塊
4、雙擊左側「模塊1」，在右側輸入以下代碼。
Sub 批量建文件夾()
Dim i As Integer
i = 1
Do While Range("A" & i).Value <> ""
MkDir "d:\" & Range("A" & i).Value
i = i + 1
Loop
End Sub
5、回到Excel表，按Alt + F8，點「批量建文件夾」—「執行」。將在D盤下生成空文件夾。
注意：運行一次後D盤下已經建了很多空文件夾，如果再次執行第5步，會因為同名文件夾已經存在而提示出錯。