EXCEL VBA制作文件链接集合工具

永远独行的辉爷 · 发表于 2020-8-29 20:57

本帖最后由永远独行的辉爷于 2020-10-30 17:27 编辑

   学了一年VBA，一直想做个东西出来，本意是做进销存，中间发现自己目标太高，暂时做不完，所以先做个简单的文件管理工具。

   简单说就是通过调用系统文件选择框获取、新建文件夹路径，然后生成超链接放在一个Excel页面，这样当目录下文件夹、文件很多的时候，可以直接搜索定位到链接所在，然后跳转或打开文件夹、文件。

   图片是创建文件夹的代码，文档中还有归集文件的代码和使用说明。代码想到哪写到哪，望海涵。

_______________________________________________________________________________________________________________________________________________________________________________________
   10.30更新：
   30楼更新多一个版本，是一键遍历指定文件夹下的所有文件夹和文件并生成超链接，代码在文档里，就不截图了，要点是FileSystemObject对象和递归算法的使用。设计粗糙之处，望海涵，供交流。

——————————————————————————————————————————————————————————————————————————-————-

m0716273254 · 发表于 2020-10-25 14:56

大神，我有个文件代码，想跳过登录或者自己注册有效口令，该怎么改，代码如下：

Private Sub Workbook_Open()
Application.ScreenUpdating = False '防止屏幕抖动,屏幕刷新禁止
If DateValue(Date) > DateValue(Sheets("主页").[iv65536]) Then
p = InputBox("您的使用期限已经到期，请输入口令继续使用", , "")
If p <> "rjs7374521" Then MsgBox "口令错误，请按确定退出！": ThisWorkbook.Close False
Sheets("主页").[iv65536] = Date + 180
End If
Login.Show
Sheets("模板").Select
Application.ScreenUpdating = True '防止屏幕抖动,屏幕刷新禁止
End Sub

Wapj_Wolf · 发表于 2020-8-29 23:15

厉害，坐等楼主的第二波更新…

simon21 · 发表于 2020-8-29 21:55

开来不错喔~~期待1直更新喔~~

grrr_zhao · 发表于 2020-8-29 22:05

鼓励一下！

fnycwfj · 发表于 2020-8-29 22:08

EXCEL VBA制作文件链接集合工具厉害！！

sunv52pojie · 发表于 2020-8-29 23:06

感谢分享楼主辛苦！

RongJ · 发表于 2020-8-29 23:27

收藏了。感谢分享

ToDesk01 · 发表于 2020-8-30 00:03

收藏了！感谢分享

bsjasd · 发表于 2020-8-30 11:48

多谢分享

nolimited · 发表于 2020-8-30 19:12

坐等楼主更新，佩服！

帐号		自动登录	找回密码
密码			注册[Register]

[其他转载] EXCEL VBA制作文件链接集合工具

免费评分

本帖被以下淘专辑推荐:

个人中心