1、如下图所示，F盘下的一个文件夹中有很多Excel文件，先将所有文件的文件名提取到Excel中。
2、打开Excel，按下Alt+F11，在VBA界面中双击左侧数据保存的工作表，弹出代码编辑区，如下图所示。
3、输入代码：
Sub 鱼木混猪()
f = Dir("F:\鱼木混猪\*.xlsx")
Do While f <> ""
k = k + 1
Range("A" & k) = k
Range("B" & k) = f
f = Dir
Loop
End Sub
代码作用是将F盘下的指定文件夹中所有xlsx文件提取到Excel中的B列中，如下图所示。
4、将光标定位于代码中间，点击“运行子程序”，如下图所示。
5、返回Excel，可以看到所有文件名都被提取到B列中了，如下图所示。
1、1.打开Excel；
2.按下Alt+F11，双击工作表名；
3.输入代码，核心代码：
f = Dir("F:\鱼木混猪\*.xlsx")
4.点击“运行子程序”；
5.所有xlsx格式的文件名就被提取到Excel中了。