如何使用excel提取文件夹中的所有文件名称？

使用excel提取文件夹中的所有文件名尺雀携称的方法主要有以下两个：\x0d\x0a1、在那个文件夹内新建一个.TXT文件（如wenjian.txt），用记事本单开输入\x0d\x0adir>1.txt\x0d\x0a保存退出\x0d\x0a将刚才的.TXT（wenjian.txt）更名为.bat文件陵伏（wenjian.bat）\x0d\x0a双击wenjian.bat文件运行一次，在文件夹内多出一个1.txt文件\x0d\x0a打开1.txt文件，将其中的内容粘贴到Excel中，数据——分列处理就可以得到你要的文件名列表了！\x0d\x0a2、VBA（2003版）\x0d\x0a在那个文件夹下新建Excel文件，打开新建的Excel文件，右击工作表标签（如Sheet1），查看代码——在代码编辑器中输入以下代码\x0d\x0aSub Test()\x0d\x0aDim i As Integer\x0d\x0aDim strPath As String\x0d\x0astrPath = ThisWorkbook.Path\x0d\x0aWith Application.FileSearch\x0d\x0a .LookIn = strPath\x0d\x0a .SearchSubFolders = True\x0d\x0a .Filename = "*.*"\x0d\x0a If .Execute >0 Then\x0d\x0a For i = 1 To .FoundFiles.Count\x0d\x0a Range("A" &i) = .FoundFiles(i)\x0d\x0a Next i\x0d\x0a End If\x0d\x0aEnd With\x0d\x0aEnd Sub\x0d\x0a回到Excel表岁衡格中，工具——宏——宏——选择Sheet1.Test——执行\x0d\x0a\x0d\x0a方法一简单的 *** 作就可以，方法二需要对程序有一定的了解，方法二通用性比较强，需要的时候执行一下就可以，更快捷。

1、打开excel文件，点击“公式”栏，进而点击“定义正竖竖名称”。

2、在d出的对话框1处输入“sheet”，并删除在对话框的2处原有的信息。

3、把公式“=REPLACE(GET.WORKBOOK(1),1,FIND("]",GET.WORKBOOK(1)),)&T(NOW())”复制粘贴进对话框2处，并点击确认。

4、重复以上 *** 作，点击“定义名称”，进入对话框，在1处输入“sheetname”,并把公式“=LOOKUP(ROW(INDIRECT("1:"&COLUMNS(sheet))),MATCH(sheet,sheet,),sheet)”复制粘贴进对话框2处，并点击确认。

5、在任意工作表单元内输入“=sheetname”并确认，得到第一张工作表的名称sheet1。

6、鼠标左键长按第一张工作表的名称sheet1往下拖动至任意单元格，可视工作表数量的多少来选择拖动长度，拖动后全部显纤誉示的是第一张工举大作表的名称。

7、选择拖动后全部的单元格范围，光标回到2处，

8、在键盘下同时按下ctrl、shift、enter三个件后完成工作表的名称提取。

1.点击“新工作表”按钮，新建一个Sheet页，将新增的Sheet表移到第一个

2.点击Sheet1中任意一个单元格，点击“公式->定义名称”。其中名称设置为“A”，引用位置为“=GET.WORKBOOK(1)”

3.选中C列，作为Sheet名称存放的列，输入公式“肆山厅裂隐=TRANSPOSE(A)”，之后按键CTRL+SHIFT+ENTER后，Excel文件中的Sheet页名称就列举在C列了

4.复制C列，然后在C列选择性粘贴 选值和源格式，去掉公式

5.按键CTRL+F打开查找和替换界面，将Excel文件名信息"[测试.xlsx]"唯前替换成空

6.将无用的Sheet名称信息（如Sheet1、#N/A）删除

---