文章介绍excel中使用vba提取文件名的操作步骤。根据需要自行修改vba提取文件名的路径和存放单元格即可。
在excel中使用VBA编写代码,可以轻松的提取某个文件夹下面的所有文件名。
比如笔者在F盘下面建立了一个文件夹,文件夹的名称是:本站,现在想将“本站”这个文件夹下面的所有文件名提取出来放在当前工作表的C列。
具体的vba提取文件名的操作如下:
1.按下ALT+F11,打开VBE编辑器。
2.执行“插入——模块”,插入模块1。? 3.在右边的代码编辑窗口,复制下面的代码,然后单击“绿色箭头”或者快捷键F5键,运行代码。Private Sub vba提取文件名()? ? Dim FileName As String? ? Dim i As Long? ? FileName = Dir("F:\本站\*.*")? ? i = 0? ? Range("C:C").ClearContents? ? Do While FileName > ""? ? ? ? i = i + 1? ? ? ? Cells(i, 3) = FileName? ? ? ? FileName = Dir? ? LoopEnd Sub? 4.关闭VBE窗口,回到工作表中,可以在C列看到F盘“本站”文件夹下面所有的文件名全部罗列在C列了。? 关于上面的vba提取文件名的代码,请在实际使用时,根据需要修改提取文件名的路径(F:\本站\*.*),以及存放在C列的位置(Cells(i, 3))。
……