[已解决]麻烦请教一个批量创建文件夹的代码

zjdh

Sub TEST()
    On Error Resume Next
    For I = 2 To Range("A65536").End(3).Row
        D = Split(Cells(I, 1), "\")
        MkDir D(0) & "\" & D(1)
        MkDir D(0) & "\" & D(1) & "\" & D(2)
    Next
End Sub

chengzhiting

danio112 发表于 2013-11-3 17:43
看看这样是不是你要的：
Sub ege()
Dim arr

多谢了啊，基本上是我需要的，就是有个地方能不能再帮修改下，下面的代码能不能不写死呢如果我把test换成了其他名字，那就需要修改下面的代码了，能不能按照B列的文件夹名自动创建相应的文件夹呢？

MkDir "c:\test"
MkDir "d:\test"
MkDir "e:\test"
MkDir "f:\test"