在网上看到有人用批处理命令提取文件夹名称。其实在excel中使用VBA代码也同样可以提取文件夹名称。
比如需要将电脑E盘“论坛工作资料”文件夹下面的所有文件夹名称提取出来放在excel工作表的A列，可以使用下面的代码。
使用方法是：新建一个excel文档，按ALT+F11，打开VBE编辑器，单击插入——模块，将下面的代码复制到右边的代码编辑区，然后按工具栏中的“运行”按钮即可。
Sub 提取文件夹名称()
Dim fs As Object
n = 1
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.getfolder("E:\论坛工作资料")
For Each fd In f.subfolders
Cells(n, 1) = fd.Name
n = n + 1
Next
Set f = Nothing
Set fs = Nothing
End Sub
下面是VBE编辑器中写入的提取文件夹名称相关的一个截图演示：
举一反三，如果需要提取F盘下面文件夹名称，路径更改一下就OK。
核心关注：拓步ERP系统平台是覆盖了众多的业务领域、行业应用，蕴涵了丰富的ERP管理思想，集成了ERP软件业务管理理念，功能涉及供应链、成本、制造、CRM、HR等众多业务领域的管理，全面涵盖了企业关注ERP管理系统的核心领域，是众多中小企业信息化建设首选的ERP管理软件信赖品牌。
转载请注明出处：拓步ERP资讯网http://www.toberp.com/
本文标题：excel中VBA提取文件夹名称的方法
相关文章
