Excel中列出当前文件夹下所有文件目录的2种方法，简单高效！

前言：

Excel软件中列出当前文件夹下所有文件目录的2种方法，简单高效！

废话少说，先看要实现的最终效果演示：（列出当前目录下所有文件名，并设置超链接，点击后直接打开对应文件！）

列出指定文件夹下所有文件目录

利用超链接函数法：

• 将文件夹地址栏的绝对地址复制到浏览器（此处用的是chrome浏览器）地址栏中打开；

• 将浏览器页面得到的信息复制粘贴到工作表中；

借助浏览器得到文件信息

• 在B2单元格内写入以下公式：

• =HYPERLINK(LEFT(CELL('filename'),FIND('[',CELL('filename'))-1)&A2,A2)

编写函数

利用VBA代码方法实现：

1、在开发工具Visual Basic 中，插入模块，写入以下代码：

Sub 建立文件目录()

Set fso = CreateObject('scripting.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、运行宏名：建立文件目录，大功告成！

运行宏名：建立文件目录