分享|文件管理模板

文件管理工具

本工具是我前几年写的

功能实现是使用的VBA代码来完成的

大家可以再文末直接获取地址下载使用

使用条件OFFICE-Excel即可

WPS的同学可以自行百度下载VBA插件

功能实现：

1、支持子文件夹（递归实现可以多级文件夹）

2、超链接(方便直接打开）

3、Excel可以直接筛选类型

4、文件日期筛选，方便直接找出最近文件

5、可以直接打开文件所在文件夹

6、利用Excel功能，实现模糊查询等

更多功能功能下载后使用体会

【最近公众号图片压缩有的模糊】

部分代码截取：

Sub Main() Call SelPath_Dialog If Mypath <> "" Then YorN = IIf(MsgBox("是否包含子文件夹", vbYesNo, "") = vbYes, True, False) Call ListAll(Mypath, YorN) '调用FSO遍历子文件夹的递归过程 With ThisWorkbook.Sheets(1) .Cells.Clear .[E:F].NumberFormatLocal = "yyyy/mm/dd hh:mm:ss" .[a2].Resize(F_count, 8) = Application.Transpose(ALl_arr) For i = 1 To F_count .Hyperlinks.Add Anchor:=.Cells(i + 1, "B"), Address:=hy_arr(1, i), TextToDisplay:="点击打开文件" .Hyperlinks.Add Anchor:=.Cells(i + 1, "G"), Address:=ALl_arr(8, i), TextToDisplay:=hy_arr(2, i) Next .[a1:h1] = Array("文件名", "链接", "大小", "类型", "创建时间", "最后访问时间", "所在文件夹", "路径") End With End If Call 格式调整美化End Sub

（完整代码见文件）

　　　　　　　　　　　　　　　　　　　　

工具下载：

https://share.weiyun.com/53yKQnO