vba提取文件名的操作流程和代码介绍

内容提要：文章介绍excel中使用vba提取文件名的操作步骤。根据需要自行修改vba提取文件名的路径和存放单元格即可。

在excel中使用VBA编写代码，可以轻松的提取某个文件夹下面的所有文件名。

比如笔者在F盘下面建立了一个文件夹，文件夹的名称是：IT部落窝，现在想将“IT部落窝”这个文件夹下面的所有文件名提取出来放在当前工作表的C列。

具体的vba提取文件名的操作如下：

1.按下ALT+F11，打开VBE编辑器。

2.执行“插入——模块”，插入模块1。 3.在右边的代码编辑窗口，复制下面的代码，然后单击“绿色箭头”或者快捷键F5键，运行代码。PrivateSubvba提取文件名()  DimFileNameAsString  DimiAsLong  FileName=Dir("F:\IT部落窝\*.*")  i=0  Range("C:C").ClearContents  DoWhileFileName>""    i=i+1    Cells(i,3)=FileName    FileName=Dir  LoopEndSub 4.关闭VBE窗口，回到工作表中，可以在C列看到F盘“IT部落窝”文件夹下面所有的文件名全部罗列在C列了。 关于上面的vba提取文件名的代码，请在实际使用时，根据需要修改提取文件名的路径（F:\IT部落窝\*.*），以及存放在C列的位置（Cells(i,3)）。