[分享]使用VB6创建COM加载宏

prcstone

学习一下，呵呵

迅岐同心

又是一篇精华，谢谢楼主！

keelung

版主,关于com加载宏,学习了你的大作,但自己还是没能完全理解,特别是xls中本身有窗体调用的,更不知如何在vb中调用,版主能否帮忙在附件上给个com加载宏的实例?
谢谢! 带窗体的如何做成com加载宏.zip (13.54 KB, 下载次数: 48)

2010-3-31 12:00 上传

点击文件名下载附件
求助

zhw79

个人觉得既然用了COM Addin,那么就没必要在XLS文件中存放窗体(即占用文件空间,又增加程序复杂性)
XLS VBE中的窗体导出后不能直接为VB使用

若窗体是VB的话，直接在事件或程序中执行：
Load 窗体名称
    窗体名称.Show

[ 本帖最后由 zhw79 于 2010-3-31 12:21 编辑 ]

keelung

谢谢!对我有所启发.但我对VB不熟,能否麻烦你在我那个附件上给个实际的例子?将一些窗体放在VB中,实现xls中要求的功能?

clarkldq

多谢楼主的分享。

（1）能不能帮忙解释，以下过程头里面的参数的含义呢？我看来一头雾水。多谢。

Private Sub cbBtn_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)


Private Sub AddinInstance_OnConnection(ByVal Application As Object, ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, ByVal AddInInst As Object, custom() As Variant)


Private Sub AddinInstance_OnDisconnection(ByVal RemoveMode As AddInDesignerObjects.ext_DisconnectMode, custom() As Variant)

（2）创建COM加载宏同"*.xla" 加载宏相比，那个速度更优呢？那个占用系统资源更少呢？

多谢解答。

zhw79

文件中的安装.bat及卸载.bat用于加载和清除ADDIN菜单
安装后会在EXCEL主菜单旁增加1个“ADDIN菜单”
显示addin菜单＝》帐号＝》切换帐号：是一个集成在Addin_MIS.dll中的窗体，用于用户验证，其他的模块上极少用到窗体，基本上交互都是通过EXCEL来实现的

[ 本帖最后由 zhw79 于 2010-4-2 20:32 编辑 ]

zhw79

帐户密码涉及SQL Server远程验证，模板文件中涉及公司信息部分进行了删减，程序功能实现的是从“报价明细”自动生成“材料清单、采购计划”等，减少公司以往烦杂的重复性劳动！
以上仅仅是个示例，程序框架基本上和楼主的类似！

[ 本帖最后由 zhw79 于 2010-4-2 20:34 编辑 ]

keelung

楼主:怎么看你附件中的vb代码呢?看不到VB代码,我还是不会做啊?

[ 本帖最后由 keelung 于 2010-4-6 12:54 编辑 ]

zhw79

.........就是在要显示窗体的地方加个“XX窗体.show”，和EXCEL VBA没什么大区别
涉及窗体的几个模块
Sub 登陆系统()
'LoginSucceeded = True  '调试系统使用
  If Not ReadNameFromCookie Then
    'MsgBox ReadNameFromCookie
    'If Not LoginSucceeded Then
    Load frmLogin
    frmLogin.Show
  Else
    LoginSucceeded = True  '调试系统使用
    显示主菜单
    'Else
    'MsgBox "系统登陆后才能正常使用"
  End If
End Sub

Sub 退出账号()
  显示主菜单
  LoginSucceeded = False
  UserName = ""
  MsgBox "你好：" & UserName & "您已经退出此账号！"
  UserName = ""
  RemoveMyMenu
End Sub
Sub 切换账号()
  Load frmLogin
  frmLogin.Show
End Sub