作者：绿色风
分类：
时间：2022-08-18
浏览：128
楼主
kevinchengcw |
Q: 我想汇总文件，但是文件存放于指定的文件夹下的各个子文件夹内，而文件夹数量及名称没有规律，有没有什么办法可以列出子文件夹（当FileSearch方法已经不被支持的时候）？
A: 可以使用下述语句获取文件夹名，并显示得到的文件夹路径，代码以当前工作簿所在路径为例，通过修改Str内容可以指定不同的文件夹。- Sub GotSubFolder()
- Dim fn, result As String
- For Each fn In CreateObject("scripting.filesystemobject").getfolder(ThisWorkbook.Path).subfolders
- result = result & fn & vbNewLine
- Next fn
- MsgBox result
- End Sub
根据楼下罗版指导已改写，特此致谢 |
2楼
罗刚君 |
尽量减少变量吧
Sub GotSubFolder2()
Dim fn, resilt As String
For Each fn In CreateObject("scripting.filesystemobject").getfolder(ThisWorkbook.Path).subfolders
Result = Result & fn & vbNewLine
Next fn
MsgBox Result
End Sub |
3楼
kevinchengcw |
谢谢罗版指导 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一