Excel中列出当前文件夹下所有文件目录的2种方法，简单高效！
前言：
Excel软件中列出当前文件夹下所有文件目录的2种方法，简单高效！
废话少说，先看要实现的最终效果演示：（列出当前目录下所有文件名，并设置超链接，点击后直接打开对应文件！）
列出指定文件夹下所有文件目录
利用超链接函数法：
将文件夹地址栏的绝对地址复制到浏览器（此处用的是chrome浏览器）地址栏中打开；
将浏览器页面得到的信息复制粘贴到工作表中；
将文件夹地址栏的绝对地址复制到浏览器（此处用的是chrome浏览器）地址栏中打开；
将浏览器页面得到的信息复制粘贴到工作表中；
借助浏览器得到文件信息
在B2单元格内写入以下公式：
=HYPERLINK(LEFT(CELL("filename"),FIND("[",CELL("filename"))-1)&A2,A2)
在B2单元格内写入以下公式：
=HYPERLINK(LEFT(CELL("filename"),FIND("[",CELL("filename"))-1)&A2,A2)
编写函数
利用VBA代码方法实现：
1、在开发工具Visual Basic 中，插入模块，写入以下代码：
Sub 建立文件目录()
Set fso = CreateObject("ing.filesystemobject")
Set 文件夹 = fso.getfolder(ThisWorkbook.Path)
'可以修改路径
a = 2
For Each f In 文件夹.Files '遍历指定路径下所有文件
Cells(a, 2).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
ThisWorkbook.Path & "\" & f.Name, TextToDisplay:=f.Name
a = a + 1
Next f
End Sub
Sub 建立文件目录()
Set fso = CreateObject("ing.filesystemobject")
Set 文件夹 = fso.getfolder(ThisWorkbook.Path)
'可以修改路径
a = 2
For Each f In 文件夹.Files '遍历指定路径下所有文件
Cells(a, 2).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
ThisWorkbook.Path & "\" & f.Name, TextToDisplay:=f.Name
a = a + 1
Next f
End Sub
插入模块，写入代码
2、运行宏名：建立文件目录，大功告成！
运行宏名：建立文件目录
结语：今天的小技巧在工作中非常实用，可以大大提升我们的工作效率！如果你喜欢，请点赞并分享给更多小伙伴吧！ 返回搜狐，查看更多
责任编辑：