如何用excel提取一个文件夹下的所有文件名

1、首先我们打开excel，点击公式tab,找到“定义名百称”并点击
2、在“编辑名称”弹窗中，输入名称“文件名称列表，引用位置输入“

=FILES("D:\R语言学习20161118\*.*")，点击“确定”度
”
3、然后，我们在A1单元格输入“=INDEX(文件名称列表,ROW(A1))”，回车。就完成了。INDEX是在指知定区域中，返回行列交叉值，ROW返回的是行号，A1 返回 1

4、如果首行不在A1，在A3的话，公式 “=INDEX(文件名称列表,ROW(A3)-2)“。INDEX是在指定区域中，返回行列交叉值，ROW返回的是行号，A1 返回 1 ，如果首行不在A1，在A3的话，公式 “=INDEX(文件名称列表,ROW(A3)-2)“，回车，下拉，完成。

5、进入D盘位道置，去"R语言学习20161118"文件夹验证一下，发现数据只提取了单个文件，未提取里面的文件夹的名称，大家借鉴的时候要注意。
6、关于分享经验中专用到的函数，大家可以下载 excel帮助文档属，查看各个函数的使用方法，含义。 或者大家在输入函数的时候，也会出现简单的提醒。

用excel提取一个文件夹e799bee5baa6e58685e5aeb9337下的所有文件名的方法主要有以下两个：
1、在那个文件夹内新建一个.TXT文件（如wenjian.txt），用记事本单开输入
dir> 1.txt
保存退出
将刚才的.TXT（wenjian.txt）更名为.bat文件（wenjian.bat）
双击wenjian.bat文件运行一次，在文件夹内多出一个1.txt文件
打开1.txt文件，将其中的内容粘贴到Excel中，数据——分列处理就可以得到你要的文件名列表了！
2、VBA（2003版）
在那个文件夹下新建Excel文件，打开新建的Excel文件，右击工作表标签（如Sheet1），查看代码——在代码编辑器中输入以下代码
Sub Test()
Dim i As Integer
Dim strPath As String
strPath = ThisWorkbook.Path
With Application.FileSearch
.LookIn = strPath
.SearchSubFolders = True
.Filename = "*.*"
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
Range("A" & i) = .FoundFiles(i)
Next i
End If
End With
End Sub
回到Excel表格中，工具——宏——宏——选择Sheet1.Test——执行

方法一简单的操作就可以，方法二需要对程序有一定的了解，方法二通用性比较强，需要的时候执行一下就可以，更快捷。

找到电脑里所有的excel文件的操作步骤如下（以WINXP为例）：

1、双击桌面我的电脑。进入我的电脑窗口后，选中我的电脑或确定的分区（如C区为系统分区，一般不保存个知人数据，而DEFG区有可能有这样的文件，则分别选择各个分区或者选择我的电脑道）。

2、点击工具栏上的“搜索”，在弹出的搜索助理窗格中的“全部或部分文件名”中输入EXCLS文件的扩展名“*.xls”（这个表示搜索所有扩展名为内XLS的文件。如果记得要找的文件名中的部分文字，可输入如“2017*.xls”,即会搜索文件名以2017开头的所有XLS文件），再按“搜索”。如果有特定要求，还可通过“什么时候修改的？”、“大小是？”、“更多高级选项”作为搜索条件。

3、搜索的结果会实容时显示在右侧文件列表中。再根据需求，进行或复制粘贴移动或双击打开等操作。

注意：搜索其它格式文件的方法与之大同小异。

假设文件夹是D:\123，然后将所有文件名放入Excel A列中copy
代码及注zd释如下：
Sub main()
f = Dir("D:\123\*.*")'搜索D盘123文件中的所有文件
Do While f <> ""
x = x + 1
Range("A" & x) = f'将文件全名，依次放入A列中
f = Dir
Loop
End Sub