Excel中列出当前文件夹下所有文件目录的2种方法,简单高效! |
您所在的位置:网站首页 › 币coine › 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、运行宏名:建立文件目录,大功告成! 运行宏名:建立文件目录 |
CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3 |