VBA 全自动使用DLL 的各种封装方法 - 完全公开源码和方法（如用VSTO就什么都不用学）

mifish

大师级人物，过贴留痕啊，膜拜！！！！

opiona

ClassLibrary2.rar (48.73 KB, 下载次数: 77)

2013-2-13 13:47 上传

点击文件名下载附件

附件内包含：vb2008全部代码和文件，Excel测试文件（全部注释），注册和卸载文件

照葫芦画瓢做了一个，在VBA完全没有问题
不错，感谢楼主，困扰我的问题解决的一半。
想问问大家：这样的函数能不能在工作表的单元格内使用呢？

下面是制作的全过程，见笑，会的就不用看了：

1. 
   
2. '*********************************
   
3. '*******  北极狐工作室出品  ******
   
4. '*******  QQ：14885553      ******
   
5. '*********************************
   
6. '利用VB2008生成自定义函数DLL
   
7. '
   
8. '=========================VB2008=====================================================================
   
9. '新建项目--选择：类库，可以修改ClassLibrary1的名字，这将是生成DLL的名字
   
10. '项目名字上右键--添加--新建项--COM类，可以修改ComClass的名字
    
11. '现在可以删除Class1.vb了，保存项目。
    
12. '代码区已将所需基础代码写好了，现在需要写入自定义函数的代码：
    
13. '    Public Function Addnumsss(ByVal X As Integer, ByVal Y As Integer) As Integer
    
14. '        Addnumsss = X + Y
    
15. '        Return Addnumsss
    
16. '    End Function
    
17. '项目名字上右键--生成，在\bin\Release文件内就有了这个Dll文件
    
18. '=========================注册和卸载过程=================================================================
    
19. '用regasm注册VB2008编写的dll，就是将下面的一句保存为BAT文件
    
20.     '注意：Framework的版本号，将路径修改为你的DLL全路径
    
21.     '卸载:
    
22.     'C:\Windows\Microsoft.NET\Framework\v2.0.50727\regasm.exe "D:\Backup\我的文档\120\ClassLibrary1.dll" /u
    
23.     '注册:
    
24.     'C:\Windows\Microsoft.NET\Framework\v2.0.50727\regasm.exe "D:\Backup\我的文档\120\ClassLibrary1.dll" /codebase
    
25. '也可以再VBA中自动注册:
    
26.     'mypath = ThisWorkbook.Path & ""  '//DLL所在文件夹
    
27.     'mydll = "ClassLibrary1.dll"       '//DLL本身文件名
    
28.     'cmd = "C:\Windows\Microsoft.NET\Framework\v2.0.50727\regasm.exe "  '需要.NET framework 2.0 或以上支持, office2003需要打补丁 kb907417
    
29.     'cmd = cmd & """" & mypath & mydll & """" & " /codebase"
    
30.     'Shell (cmd) '调用命令行命令，利用 regasm.exe 向注册表写入 这个ClassLibrary1.dll 的注册信息
    
31.     '最好加一个延时，以防止没有加载完成就调用，而出错。
    
32.    
    
33. '=========================在代码中引用这个DLL============================================================
    
34. '在VB6.0中调用：Dim test As New ClassLibrary1.ComClass1
    
35. '在Excel的VBA中创建这个DLL的实例:
    
36.     Sub TEST()
    
37.         Set Obj = CreateObject("ClassLibrary1.ComClass1") '//实例化DLL，格式为：项目名称.COM类名
    
38.         MsgBox Obj.Addnumsss(3, 5), , "测试DLL中函数结果" '//在代码中调用函数
    
39.     End Sub
    

复制代码

dddance

留贴，慢慢学习中

龙蒙山

先收藏了,有空认真学习.

ravinn

大师, 请问自定义函数想要这个效果(如图) 应该怎么做呢?

rifl

暂时不太懂，留下印记

ravinn

引述法师的话 --  ""我认为用自定义函数自己返回提示更简单""  

我怎么没有想到呢?  大师果然犀利,  谢谢了!

wz123456

支撑下法师，学习中

筱悠

做个记号 回头学习~

umi23

谢谢分享 学习了