室内设计培训
平面设计培训
部落窝教育
网站首页 >> Excel教程 >> 文章内容

excel中VBA提取文件夹名称的方法

[日期:2012-02-24]   来源:IT部落窝  作者:IT部落窝   阅读:5559[字体: ]
内容提要:文章介绍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。

IT部落窝PS,CDR,213班 分享到: QQ空间 新浪微博 腾讯微博 人人网
photoshop教程
Photoshop教程
平面设计教程
Photoshop教程