批量复制文件夹名

36K纯帅

各位老师好，有个需求不知能否用VBA实现，批量复制文件夹名，二级和三级文件夹，A列放二级文件夹名，B列放三级文件夹名，感谢！

LIUZHU

是批量创建嵌套式的文件夹吗？

36K纯帅

LIUZHU 发表于 2024-4-2 15:55
是批量创建嵌套式的文件夹吗？

不是哦 将文件夹内的二级和三级文件夹名复制粘贴在表格AB列

tanglf188

没有合并单元格，请参考

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.4.2
   
2.     Dim fds As New Collection
   
3.     p = ThisWorkbook.Path & ""
   
4.     Cells.UnMerge
   
5.     [a2:b1000] = ""
   
6.     getfds p, fds
   
7.     ReDim brr(1 To fds.Count, 1 To 2)
   
8.     For Each k In fds
   
9.         fd = Split(Replace(k(0), p, ""), "")
   
10.         u = UBound(fd)
    
11.         If u > 0 Then
    
12.             m = m + 1
    
13.             For x = 0 To UBound(fd)
    
14.                 brr(m, x + 1) = fd(x)
    
15.             Next
    
16.         End If
    
17.     Next
    
18.     [a2].Resize(m, 2) = brr
    
19.     [a2].Resize(m, 2).Borders.LineStyle = 1
    
20.     zr = Array(1)
    
21.     Call hb(2, 1, 1, zr)
    
22. End Sub

复制代码

LIUZHU

36K纯帅 发表于 2024-4-2 16:42
不是哦 将文件夹内的二级和三级文件夹名复制粘贴在表格AB列

意思就是查找文件夹罗？

36K纯帅

ykcbf1100 发表于 2024-4-2 17:18
附件供参考。。。

感谢老师的帮助 已经完美解决问题了