最好用的文件目录管理宏（自动创建超链接目录）

16698 · 发表于 2012-10-25 11:18

本帖最后由 16698 于 2012-10-25 11:36 编辑

文件目录管理宏，选择文件夹自动创建该文件夹下面的所有文件及文件夹的目录（超链接），更换目录excel位置后只需要点更新即可。

注意：文件夹超过9层的多出来的不会显示。文件数上千的可能会假死，不要点excel，等一会儿会创建好的。excel2010上运行成功其他没试过。

文件目录管理.rar (68.07 KB, 下载次数: 6689)

捕获.PNG

yzyyyyyyy · 发表于 2012-10-25 11:31

2000下运行到这句出错
Application.FileDialog(msoFileDialogFolderPicker).InitialFileName = spath

yukun590 · 发表于 2012-10-25 12:05

Good Tools!

win2009 · 发表于 2012-10-25 12:07

这个是你的原创吗？好像论坛有一个和这个一样
下面这句改一下

.Cells(i, j).Interior.ColorIndex = j + 2
改为，看得清楚
.Cells(i, j).Interior.ColorIndex = j + 3

四脚朝天 · 发表于 2012-11-2 00:28

超级好用，感谢楼主

sunguobin · 发表于 2012-11-7 10:23

牛人，好东西！

shengguan123 · 发表于 2012-11-11 18:06

很好用，
但不知道能否自动创建该文件夹下面的部分文件（超链接），

南海 · 发表于 2012-11-11 23:09

记号学习学习

阿建GG · 发表于 2012-11-11 23:34

Win7 64位 office2010 运行报错“编译错误：找不到工程或库”

Function 展开文件夹()
ActiveSheet.usedrange.Select
Selection.EntireRow.Hidden = False
[a1].Select
End Function

jkou · 发表于 2012-11-14 16:25

挺好的，不错

		自动登录	找回密码
密码			免费注册

[求助] 最好用的文件目录管理宏（自动创建超链接目录）

评分