如何用VBA 实现跨多个文件夹导出文件夹内的工作簿的名称，且放到另一个新建表格B列上

非常6-1

Sub 历遍该文件名所在的文件夹下的文件名()
Dim ml$, n%
ml = Dir(ThisWorkbook.Path & "\*")
'ml = Dir("C:\Users\Administrator\Desktop\打印7月订单")
Do
ml = Dir
n = n + 1
Cells(n, 1).Value = ml
Loop Until ml = ""
End Sub
现在我只能实现在同一文件夹内导出工作簿的名称，如何实现导出一个大文件内的多个子文件夹里的多个工作簿的名称？
还有现在这个代码会少一个数据，二十九个数据只有二十八个，是为什么呢?

非常6-1

顶一下，附件在这，为什么提取的工作簿名称总是比实际的工作簿少一个？

非常6-1

顶一下顶一下顶一下

非常6-1

顶顶。。。。。。。

蓝桥玄霜

http://club.excelhome.net/thread-1398984-1-1.html

非常6-1

蓝桥玄霜 发表于 2018-7-13 09:48
http://club.excelhome.net/thread-1398984-1-1.html

老师您好，我看了链接，复制了代码运行显示“子过程或函数未定义是什么意思呢？”错误停在第一句sub main()和Call GetFiles(fp)这一句上。。。。这是什么原因呢？

非常6-1

非常6-1 发表于 2018-7-13 10:32
老师您好，我看了链接，复制了代码运行显示“子过程或函数未定义是什么意思呢？”错误停在第一句sub main ...

代码没问题，是我搞错了谢谢老师

非常6-1

蓝桥玄霜 发表于 2018-7-13 09:48
http://club.excelhome.net/thread-1398984-1-1.html

代码没问题我搞错了，谢谢老师