f = Dir(fn(i), vbDirectory)
    Do
      If InStr(f, ".") = 0 And f <> "" Then
        k = k + 1
        fn(k) = fn(i) & f & "\"
      If
      f = Dir
    Loop Until f = ""
    i = i + 1
  Loop
  '*******接下来是提取各个文件夹的文件***
  For x = 1 To UBound(fn)
      If fn(x) = "" Then Exit For
       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打印标准大小的身份证
• win10系统如何用远程桌面连接阿里云云服务器ECS
• 微信密码忘记了如何找回
• wpsppt中如何进行橙色极简风图文排版
• wpsppt中如何制作渐变红色系过渡页面
• dedecms整站源码如何安装
• wpsppt中如何制作蓝色镂空简约型封面
• wpsppt中如何制作黄色系菱形标题样式