excel中使用VBA代码来提取文件夹名称的具体操作步骤

在网上看到有人用批处理命令提取文件夹名称。其实在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。