[下载]喜讯：文件目录管理加载宏一升再升，免费下载[下载]

JXM

突破一次更名限制，只要没有退出EXCEL，可反复更名，并支持文件目录库当时刷新。 1 如何安装此加载宏程序 请将加载宏“文件目录管理021104.xla”复制到你的本机OFFICE(只支持office2000以上)的LIABRAY目录即可 2 如何启动程序 "启动EXCEL2000，在工具栏>加载宏的列表框中将“文件目录管理021104.xla”打勾选取,按确定即可启动，作者 在EXCELXP上试用，发现有找不到工程或库的问题，请将除以下四个库Visual Basic for Application(VBA) MS EXCEL9.0 OBJECT LIABRARY(EXCEL9.0I)、MS FORMS 2.0 OBJECT LIABRARY(FM20.DLL)、 MS OFFICES 9.0 OBJECT LIABRARY(MSO9.DLL)外其余工程库引用的勾去掉即可得到一文件目录管理工具栏" 3 如何生成文件目录清单 "按一下文件目录管理工具栏上的生成文件管理库按钮，就会启动打开文件对话框，请在要生成清单的目录内任选一个文 件，点击打开，然后会启动一个另存为对话框，请将即将生成的文件清单工作簿存盘，按确定程序将自动生成一个工作 簿，内含文件目录、查询文件、批量更名三个工作表。" 4 如何批量改名 "请在批量更名工作表对应文件名后输入新文件名，然后按执行批量改名按钮即可，可无限次更名，且更名后目录表会自动更新 由于本版尚未采用队列技术，所当文件总数达到上千个时更名稍慢，另一个问题是当用户退出EXCEL再打开文件库，由于 内存释放，更名功能不可再用，要用只有重新生成文件库" 5 如何按文件名关键字查询文件全称 首先当然可以在文件目录工作表上用自定义筛选啦。 介绍第二种方法，在查询文件工作表上输入文件名关键字单元格（c5）输入带通配符的文本串，如 *第2001号*，*建总函???*等 "本查询只设置显示40个结果，文件总数限制为30000个，按时间范围查询在进一步开发中，另按文件名查询不能带超链， 也在进一步改善。" [upload=rar]uploadImages/20021161826137281.rar[/upload]

bluetree

我想问一下,怎么样在打开EXCEL后,那个工具条可以出现在工具栏上,我的总是在文件正中间放着,每一次都要手动把它放上去

JXM

是我故意将工具栏在程序中设为浮动，而不是向上停靠。因为这个文件目录管理加载宏应该不常用，不用时在工具栏加载宏中把它的勾去掉，这个讨人嫌的工具栏就不会再出现了。当然改代码也可以。

水清山

哈！ 看来不会就是不会， 只有进一步学习了。 好东西不能错过！

skylark

To JXM: 在我这儿为何报错? [upload=gif]uploadImages/2002111221302042929.gif[/upload] 有关引用的要求做了。我用Office2000. 021101是可用的。 —————————————————— Try Anything Once[em08]

对面男孩

佩服！

chengxiang

的确是个好东东，您是怎么想到这一点的。看到好实用的功能，可能微软的程序员们在下一个office版本中要加入这串代码啦!谢谢您的奉献。

对面男孩

可惜不能看到代码。

JXM

可能需要在你的机上重新编译，在VBE的工具-引用菜单，选择正确的引用库，然后重编译一下就行了。

skylark

To JXM: 我有两台机，一台可以用，也没做什么，一台还是无法用。 也罢，感谢你的指点，也感谢你的文件！ _____________________________ Try Anything Once