利用EXCEL宏实现批量生成指定名称的文件夹功能

用于通过excel实现批量生成指定命名的文件夹

宏如下：
Sub 生成文件夹()
On Error Resume Next
Dim Rng_1 As Range, Rng_2 As Range
Set Rng_1 = Range("A1:A10")
For Each Rng_2 In Rng_1.Cells
    MkDir ThisWorkbook.Path & "\" & Rng_2.Value
Next
End Sub

操作过程如下：