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

chengzhiting

麻烦大家根据附件中A列批量创建文件夹，A列的文件夹路径和名称是通过link1,link2,link3,link4组合起来的

最佳答案

月排行榜 / 总排行榜

zjdh

2013-11-3 17:59

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

跳转到最佳答案楼层

我心飞翔410

你自己 试试 能不能行 我电脑上不想试

chengzhiting

我心飞翔410 发表于 2013-11-3 16:25
你自己 试试 能不能行 我电脑上不想试

报错了

我心飞翔410

Dim arr(1 To 20)   改为Dim arr()    没改过来 不好意思

chengzhiting

我心飞翔410 发表于 2013-11-3 16:38
Dim arr(1 To 20)   改为Dim arr()    没改过来 不好意思

还是有问题额

我心飞翔410

Sub ege() '不用组合 可以把A列删了   呵呵  忘记改了 你在试试 下面的代码
Dim arr()
Dim x As Integer, b As String
   arr = Range("b2:e" & Range("a65536").End(xlUp).Row)
  
For x = 1 To UBound(arr)
   MkDir arr(x, 1) & arr(x, 2) & arr(x, 3) & arr(x, 4)
Next x
End Sub

chengzhiting

我心飞翔410 发表于 2013-11-3 17:03
Sub ege() '不用组合 可以把A列删了   呵呵  忘记改了 你在试试 下面的代码
Dim arr()
Dim x As Integer ...

还是提示错误

hwc2ycy

加个on error resume next吧。

我心飞翔410

证明你的文件路径不对 你E列的文件夹有么 没有就要出错  搞不明白 你的link4  为啥要加\  是在这个文件夹下创建 还是在link3文件夹下 新建一个文件夹以link4 命名     

danio112

看看这样是不是你要的：
Sub ege()
Dim arr
Dim x As Integer
   arr = Sheets(1).Range("a2:a" & Range("a65536").End(xlUp).Row)
MkDir "c:\test"
MkDir "d:\test"
MkDir "e:\test"
MkDir "f:\test"
For x = 1 To UBound(arr)
   MkDir arr(x, 1)
   Next
End Sub