Sub createFolder()
Dim wks As Worksheet
On Error Resume Next
Set wks = ThisWorkbook.Worksheets(1)
basepath = ThisWorkbook.Path & "\"
Max = wks.Range("A100000").End(xlUp).Row
For i = 2 To Max
VBA.MkDir (basepath & wks.Cells(i, 1))
Next
End Sub
标签：ThisWorkbook,VBA,End,Sub,批量,basepath,文件夹,wks From： https://www.cnblogs.com/luoye00/p/17693811.html