摘要： 文章介绍excel中使用VBA代码来提取文件夹名称的具体操作步骤。
在网上看到有人用批处理命令提取文件夹名称。其实在excel中使用VBA代码也同样可以提取文件夹名称。
比如需要将电脑E盘“论坛工作资料”文件夹下面的所有文件夹名称提取出来放在excel工作表的A列，可以使用下面的代码。
使用方法是：新建一个excel文档，按ALT F11，打开VBE编辑器，单击插入——模块，将下面的代码复制到右边的代码编辑区，然后按工具栏中的“运行”按钮即可。
Excel vba复制工作表实例
文章介绍两个excel中vba复制工作表的例子。Vba复制工作表，通常是用copy方法。 Excel中的vba复制工作表，一般是使用Copy方法。但往往复制的要求不同，因此代码也有所不同。我们以两个常用的vba复制工作表例子来加以说明和学习。 vba复制工作表案例一 Sub vba复制工作表()Workshee
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。
Excel使用VBA实现excel循环累加的代码
excel循环累加使用VBA事件和代码自动完成累加是比较可行的方法。 我们以一个具体的例子来说明使用VBA实现excel循环累加的使用。 我们在A列输入具体的数据，然后在B列实现循环累加。 比如我们在A1输入12，B1显示12，A1再输入13，B1就循环累加，值为：12 13=25。 再次在A1输入10
