麻烦请教一个批量创建文件夹的代码

chengzhiting

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

cbtaja

1. Sub mk()
   
2. arr = Range([a2], [a65536].End(3))
   
3. For i = 1 To UBound(arr)
   
4.     s = arr(i, 1)
   
5.     MkDir Left(s, Len(s) - 1)
   
6. Next
   
7. End Sub

复制代码

hyefeifei

关于这个问题，不知是否我想复杂 了，用到了类，堆栈，应该是解决问题了，你测试一下。
新建 Microsoft Excel 工作表.rar (26.53 KB, 下载次数: 46)

2013-11-4 07:27 上传

点击文件名下载附件

清风幽闲

Sub g()
Set fso = CreateObject("scripting.filesystemobject")
For n = 2 To Cells(Rows.Count, 1).End(3).Row
    If Not fso.FolderExists(Cells(n, 2).Value) Then fso.CreateFolder (Cells(n, 2).Value)
    fso.CreateFolder (Cells(n, 1).Value)
Next n
End Sub

yangyangzhifeng

试试看

1. Sub test()
   
2.     Dim ar, i&, st$
   
3.     ar = Sheet1.Range("a1").CurrentRegion
   
4.     For i = 2 To UBound(ar)
   
5.         st = ar(i, 2)
   
6.         st = Left(st, Len(st) - 1)
   
7.         If Dir(st, 16) = "" Then MkDir st
   
8.         st = ar(i, 2) & ar(i, 3)
   
9.         If Dir(st, 16) = "" Then MkDir st
   
10.         st = ar(i, 1) & ar(i, 5)
    
11.         st = Left(st, Len(st) - 1)
    
12.         If Dir(st, 16) = "" Then MkDir st
    
13.     Next
    
14. End Sub
    

复制代码

chengzhiting

yangyangzhifeng 发表于 2013-11-4 08:09
试试看

谢谢老师哈！！！

chengzhiting

cbtaja 发表于 2013-11-3 23:24

谢谢老师哈！！！