如何把文件夹里的文件名快速导出到excel表格里

1、打开excel表格之后，按下【Alt+F11】组合键调出VBA编辑器。

2、点击【插入】、【模块】。

3、在模块代码框里面输入以下VBA程序代码，再按【F5】键运行程序。

Sub Get_Files_Name()

Dim MyPath1, MyPath2, Sh, str

On Error Resume Next  '忽略运行过程中可能出现的错误

Application.DisplayAlerts = False  '忽略报警提示

MyPath1 = "d:\办公文件 "  '获取文件夹里面文件名称路径

MyPath2 = "d:\办公文件\提取文件名\提取文件名.xls "  '生成文件路径

str = "cmd /c d: &&　@cd " & MyPath1 & "&& @tree /f >" & MyPath2

Sh = Shell(str, 0)  '运行命令

Workbooks.OpenText Filename:=MyPath2  '打开生成的文件

Sheets("提取文件名").Copy Before:=ThisWorkbook.Sheets(1) '复制生成的文件

Windows("提取文件名.xls").Close  '文件窗口关闭

Application.DisplayAlerts = True  '恢复报警提示

End Sub

4、回到excel工作表界面，将会看到导出的所有文件名称。

1、新建一个文本文档，在文本文档里边输入以下bat命令程序，保存并关闭。

@echo off

@d:

@cd d:\办公文件

@tree /f >d:\办公文件\提取文件名\提取文件名.xls

2、将新建文本文档重命名（如：提取文件名.bat，“.bat”是批处理文件的后缀名）。

3、双击已经重命名的文件（提取文件名.bat）。

4、打开已经生成的文件名提取文件（excel文件）。

5、将会看到提取出来的文件名称。

1、方法一：使用VBA程序提取文件名称

1、打开excel表格，按下【Alt+F11】组合键。

2、点击【插入】、【模块】。

3、输入VBA程序代码，再按【F5】键运行。

4、指定文件夹下边的文件名将会导入excel表格。

方法二：使用bat批处理命令提取文件名称

1、新建一个文本文档，输入bat命令程序。

2、将新建文本文档重命名成bat文件格式。

3、双击已经重命名的bat文件。

4、双击打开生成的excel文件。

5、批量导出文件名到excel表格完成。