For x = 1 To UBound(fn)
If fn(x) = "" Then Exit For
【如何用VBA读取一个文件夹内所有子文件夹的名称】 f3 = Dir(fn(x) & "*.*")
Do While f3 <> ""
q = q + 1
arr1(q, 1) = fn(x) & f3
f3 = Dir
Loop
Next x
ActiveSheet.UsedRange = ""
Range("a1").Resize(q) = arr1
MsgBox Format(Timer - t, "0.00000")
Sub
文章插图
注重事项但愿能帮忙到你
以上内容就是如何用VBA读取一个文件夹内所有子文件夹的名称的内容啦 ， 希望对你有所帮助哦！
推荐阅读
- 酷我音乐如何剪辑铃声
- 如何使用wps的自动编号
- 如何用WPS打印标准大小的身份证
- 藏族如何煮茶
- 如何快速进行二进制与八进制之间的转换
- 二进制如何转换成八进制，八进制如何转成二进制
- 科学家是如何测量光速的？
- “好评”是如何“劝”我们买买买的？
- 健康手环和运动手环如何抉择
- 如何在WPS文档的方框中打“√”和“×”