2010VSTO加载项插件

opiona

不知道楼主是否能公开一下代码
或做一个小例子发上来
也想用vb2008开发Excel用的DLL自定义函数
不知道如何下手！

谢谢！

opiona

自己按照MSDN的方法做了一个
但是很麻烦，不能直接生成加载宏
还是将过程拿出来分享：

1. '利用VSTO生成Excel自定义函数
   
2. 
   
3. '=========================VSTO部分=====================================================================
   
4. 
   
5. '创建一个启动宏的Excel工作簿
   
6. 'VSTO新建项目--OFFICE--2007--Excel2007工作簿  （或者其他版本）
   
7. '复制现有文档--找到你创建的文件
   
8.     'VBTO不会修改你创建的文件，而是bin\Debug内用它的副本修改
   
9.     '自定义函数只在这个文件中能用，就是你指定的这个Excel工作簿。
   
10.     '生成的加载项，可以在其他Excel工作簿内使用。
    
11. 'ThisWorkbook.vb属性：
    
12. '    EnableVbaCallers=true   （出现提示：确认，这个是指VBA可以使用VSTO的代码）
    
13. '    ReferenceAssemblyFromVbaProject=true（自动变化的）
    
14. '代码区内添加函数,例如：
    
15. '   Public Function AddNumbers(ByVal X As Integer, ByVal Y As Integer) As Integer
    
16. '       Return x + y
    
17. '   End Function
    
18. '运行：会打开你创建的Excel
    
19. 
    
20. '=========================Excel部分=====================================================================
    
21. 
    
22. 'ThisWorkbook 的代码中会自动出现：
    
23. '//定义一个函数，从VSTO项目ExcelWorkbook1的ThisWorkbook.vb中集成而来）
    
24. 'Property Get CallVSTOAssembly() As ExcelWorkbook1.ThisWorkbook
    
25. '    Set CallVSTOAssembly = GetManagedClass(Me)
    
26. 'End Property
    
27. 
    
28. '可以将其移植到模块中，写法是将：Me 换成：ThisWorkbook
    
29. Property Get CallVSTOAssembly() As ExcelWorkbook1.ThisWorkbook
    
30.     Set CallVSTOAssembly = GetManagedClass(ThisWorkbook)
    
31. End Property
    
32. 
    
33. '定义一个函数，此函数指向，或者部分利用VSTO的自定义函数
    
34. Public Function NUMADD(X, Y)
    
35.     NUMADD = CallVSTOAssembly.AddNumbers(X, Y) + 1
    
36. End Function
    
37. 
    
38. '验证一下，这个自定义函数是否能成功调用
    
39. 'Sub OPIONA()
    
40. '    MsgBox NUMADD(3, 5)
    
41. 'End Sub
    
42. 
    
43. '其余的和Excel自定义函数就一样了：
    
44. '保存为：加载宏
    
45. '加载宏和VSTO生成的其他文件要在一个文件夹内
    
46. 
    
47. '=========================使用方法=====================================================================
    
48. 
    
49. '打开Excel，挂上这个加载宏，就可以在工作表中，或VBA中使用这个自定函数了
    
50. ''优点：
    
51.     '保护代码有一些优势，
    
52.     '可以实现VBA中无法实现的功能
    
53. ''缺点：
    
54.     '过程有点麻烦，多此一举，
    
55.     '需要.net的支持，需要文件多

复制代码

bjjgq

这个是怎么做的呢，我也很想学习一下
有没有什么资料可以学习呢

kof369

能分享一下代码吗？

lnb19850110

2007的可以用吗

opiona

安装VB2010才能知道！

changxq

代码可以分享下嘛？cxqcpa@chinaacc.com 谢谢

bshkl

楼主在吗，有事要找你。。。。

yyltt

看标题误解，原来就是excel插件

1615720058

有源码吗？学习下。