很多时候我们需要批量建立文件夹，特别是一些有规律名称的文件夹，比如日期与其他组合的文件夹等，那么我们可以通过什么方法来建立呢，对于不会写程序的人确实很头痛，不过我想这种简单的功能，是不是可以通过一些常用软件来实现呢，比如说 批处理，excel宏，探索一下，确实有很多教程了：

那能不能用excel vba 来直接实现呢？慢慢探索一下 2019年7月30日

通过 excel vba.mkdir 可以实现创建文件夹，配合for循环，便可以批量实现文件夹的创建，甚至实现更多复杂的功能，我记得以前看见过过有人希望能够根据日期批量创建文件夹:

通过以下vba代码就可以实现：

Sub Sheet2_按钮1_Click()
Dim i As Range
Dim w As Range
Dim s As Long
Dim t As Long
Dim a As String
Dim r As String
Dim y As String
On Error Resume Next
Set i = Range("A4")
Set w = Range("A2").End(xlDown)
If (Range("B2")) Then
If MsgBox("确认路径与文件名称正确，是将继续创建，否则退出", vbYesNo, "确认") = vbYes Then
a = Range("B2") & "\"
s = Range(i, w).Count
For t = 4 To (s + 3)
    r = Range("A" & t)
    y = a & r
    VBA.MkDir (y)
    Range("B" & t) = "已创建"
    Range("B" & t).Interior.ColorIndex = 22
    Next
If MsgBox("创建完成！是否打开文件夹？", vbYesNo, "确认") = vbYes Then
Shell "explorer.exe " & a, vbNormalFocus
Else
End If

Else
End If

Else
MsgBox ("路径地址不能为空！")
End If
End Sub
'原文访问：https://i.wstary.com/archives/416.html

源文件下载
点击下载