Excel如何用VBA批量提取文件名

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) = ff = DirLoopEnd Sub代码作用是将F盘下的指定文件夹中所有xlsx文件提取到Excel中的B列中，如下图所示。

4、将光标定位于代码中间，点击“运行子程序”，如下图所示。

5、返回Excel，可以看到所有文件名都被提取到B列中了，如下图所示。