隐藏封装VBA代码，制作DLL的完整示例

7786910

谢谢楼主分享

aa88aa

谢谢楼主分享！

XZ19860527

[代码]多谢![代码]

死亡メロディ

谢谢楼主分享

wwlwdmz

学习了，也想了解如何调用

sunsoncheng

在楼主的链接里,基本每个Dll里的过程都要引入,application

如YJ.setmyapp Application  ''调用Dll

现在想问问题是:能不能在DLL的初始化里面使用这个APPLICATION变成自动的参数传输?
dim myapp as object
Private Sub Class_Initialize()
      myapp =传输到类里面的物件????
End Sub

在调用时用类似
Dim YJ As New MyDLL.MyClass(传输到类里面的物件)
即可传数?

sunsoncheng

在网上下了个VB6.0
跟着楼主的脚步一步步的走,制成了同名的mydll文件,其中的代码是复制过去的
用于替代楼主的文件,结果显示引用里丢失了MYDLL

于是用楼主的文件打开原来的.CLS文件 加入新的内容,包括过程,函数
也用了同样的名,也加入了ADO引用,结果一切正常!也能使用正常

但加多了一个关于排序的类,以便原类里引用排序等方法,
结果是引用没问题,但自动化出错了

楼主还有些什么参数未指示出来?或某些设定未指出来?
谢谢

这个问题的原因找到了,也在这里说一下,让各位少走弯路
1\保存工程名时也要用同样的名,因为最后的引用
dim hJ as new xxx.yyy
中的xxx就是保存时的工程名,象我的myuu.dll里面有两个类模块,一个叫uuclass,在保存时没有改名,直接用了工程1
注册时还是用dll的名字
Private Sub Workbook_Open()
    Shell "regsvr32 /s " & VBA.Chr(34) & ThisWorkbook.Path & "\Myuu.dll" & VBA.Chr(34), vbHide
End Sub

但引用时,只能是引用 工程1
Dim YJ As New Myuu.uuClass 这样的写法是错的
正确的写法就是
Dim YJ As New 工程1.uuClass
工程名的更改好象在这里:


2、而有多个类模块时我选择了将一个公开一个私有，就没有发生错误，事实上那个也是私有的就行了

[ 本帖最后由 sunsoncheng 于 2011-6-25 09:22 编辑 ]

zhangzhenxia

先收藏了，谢谢！

opel-wong

学习了，下次自己也尝试一下．

along1231

谢谢楼主分享。学习一下。