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列中了,如下图所示。