一个可以浏览多个Excel中的VBA的小程序

zhyj_88 · 发表于 2012-2-12 23:19

本帖最后由 zhyj_88 于 2012-3-9 11:12 编辑

在学习VBA过程需要看大量的实例,但一个一个文件打开太麻烦,故编了一个小程序,可以一次选中同一文件夹的所有Excel文件来浏览其中的程序,并且可以保存代码,详细功能见下面的图片介绍.
如果你觉得好用,不要忘了顶一下,如果你有意见,可以提出来以便我整改.
------------------
根据2楼提供的修改意见,除了在文本框中增加滚轮功能没有做之外,其他已经改完,并完善了若干功能.大家多反馈一下使用意见.

liucqa · 发表于 2012-2-12 23:21

本帖最后由 liucqa 于 2012-2-12 23:36 编辑

非常不错的工具

For Each VBRef In Wbk.VBProject.References
         If Not DicRefType.Exists(CStr(VBRef.Type)) Then DicRefType(CStr(VBRef.Type)) = "其他"
         ListBox2.AddItem DicRefType(CStr(VBRef.Type)) & "->" & VBRef.Name
      Next

这个循环有问题，当VBRef.Name不能取到的时候，就提示MsgBox "您选择的文件工程不可查看,请重新选择文件!"

明显判断错误

可能是引用丢失的时候报错吧

liucqa · 发表于 2012-2-12 23:44

另外能不能在textbox里面加上滚轮

鼠标滚轮滚动_A1.rar (18.04 KB, 下载次数: 122)

给你个下拉框滚轮的代码，你改改

liucqa · 发表于 2012-2-12 23:47

另外，如果打开文件的时候，选取消，再点按钮，字典就会报错，你改改。

打开信任工程的代码最好加上，省得别人误解。
http://club.excelhome.net/thread-759208-1-1.html 2007代码参考这个

zhyj_88 · 发表于 2012-2-12 23:47

liucqa 发表于 2012-2-12 23:21
非常不错的工具

For Each VBRef In Wbk.VBProject.References

在前面已经有了On Error GoTo ErrorLine错误处理程序

zhyj_88 · 发表于 2012-2-12 23:58

liucqa 发表于 2012-2-12 23:47
另外，如果打开文件的时候，选取消，再点按钮，字典就会报错，你改改。

打开信任工程的代码最好加上，省 ...

感谢您提的四个问题
一是引用丢失报错类型不一致
二是文本框加滚轮事件
三是字典报错
四是加信任工程代码
初步看二和三应好解决,其他的我再学习一下.
改好后我再上传.
再次谢谢您的反馈.

okok7845 · 发表于 2012-2-13 00:12

楼主，可不可转成2003的？

weil209 · 发表于 2012-2-13 00:38

楼主是高人！~

清风_ll · 发表于 2012-2-13 10:54

期待分享代码{:soso_e113:}

zhyj_88 · 发表于 2012-2-13 11:09

清风_ll 发表于 2012-2-13 10:54
期待分享代码

我的这个是小儿科,你应该随便做一个就可以做得更好.2楼的不知如何破解的

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

[原创] 一个可以浏览多个Excel中的VBA的小程序

评分

点评