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

文章介绍excel中使用vba提取文件名的 *** 作步骤。根据需要自行修改vba提取文件名的路径和存放单元格即可。
在excel中使用VBA编写代码，可以轻松的提取某个文件夹下面的所有文件名。
比如笔者在F盘下面建立了一个文件夹，文件夹的名称是：office教程网，现在想将“office教程网”这个文件夹下面的所有文件名提取出来放在当前工作表的C列。
具体的vba提取文件名的 *** 作如下：
1按下ALT+F11，打开VBE编辑器。
2执行“插入——模块”，插入模块1。

3在右边的代码编辑窗口，复制下面的代码，然后单击“绿色箭头”或者快捷键F5键，运行代码。
Private Sub vba提取文件名()
Dim FileName As String
Dim i As Long
FileName = Dir("F:\office教程网\")
i = 0
Range("C:C")ClearContents
Do While FileName > ""
i = i + 1
Cells(i, 3) = FileName
FileName = Dir
Loop
End Sub

4关闭VBE窗口，回到工作表中，可以在C列看到F盘“office教程网”文件夹下面所有的文件名全部罗列在C列了。

关于上面的vba提取文件名的代码，请在实际使用时，根据需要修改提取文件名的路径（F:\office教程网\），以及存放在C列的位置（Cells(i, 3)）。

Sub 提取文件名称()
CellsClear
        Dim str$, fso, file, i&
         With ApplicationFileDialog(msoFileDialogFolderPicker)
         If Show = -1 Then
         str = SelectedItems(1)
         If Right(str, 1) <> "\" Then
         str = str & "\"
         End If
         End If
       End With
       i = 1
       Set fso = CreateObject("scriptingfilesystemobject")
       
       For Each file In fsogetfolder(str)Files
       Cells(i, 1) = fileName
       i = i + 1
       Next
    
       
       End Sub

批量提取文件名到EXCEL表最快，具体 *** 作步骤如下：

1、首先，如图所示的文件夹，我们将要提取里面所有jpg的名字。

2、接下来点击开始菜单，找到记事本程序打开。

3、然后右击上面所示文件夹的地址，复制地址。

4、在记事本中按右键粘贴。

5、粘贴好后在地址前输入for /r，在地址后输入%%a in (jpg) do echo %%~na >>生成文件txt。注意里面的jpg要换成你自己要提取的文件类型扩展名。

6、接下来点击关闭按钮，点击保存。

7、在保存对话框中选择保存类型为所有文件，再输入文件名，文件名后加上“bat”，也就是保存成批处理文件。

8、把该批处理文件移动到要提取文件名的文件夹里，然后双击运行。

9、文件夹里就多出了一个生成文件txt的记事本文档。双击打开就看到所有的文件名了。

10、打开Excel，点击数据，点击自其他来源，来自XML数据导入。

11、在导入对话框中选择生成文件txt，点击打开。在导入向导中点击完成。

12、在导入数据位置中点击确定，名字就导入到Excel表中了。

使用dir或者fso文件系统
对文件夹下文件进行遍历提取
下面的资料是本人整理的，有具体案例可以参考
>