2022年VSTO用VISUALBASIC编写EXCEL自定义函数 .pdf

《2022年VSTO用VISUALBASIC编写EXCEL自定义函数 .pdf》由会员分享，可在线阅读，更多相关《2022年VSTO用VISUALBASIC编写EXCEL自定义函数 .pdf（6页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、VSTO 学习笔记一： 用 VISUAL BASIC 2010 编写 EXCEL 自定义函数（加载项）by 哪一站本文大部分代码来自于VSTO开发指南，只是VSTO开发指南中的开发环境为VS2005和OFFICE 2003,本文的开发环境为VS2010和 OFFICE 2010 32位版。操作系统为WIN7 64 位学习 VSTO的主要目的，主要是除了VBA 之外，多一种开发EXCEL 自定义函数的手段，我在用 VBA开发 EXCEL 的过程中，发现VBA的执行效率太低，因为VBA是宏，是解释执行的，我曾经在用VBA 开发给用友U8导入发票时， 导入几十张发票就花了二个小时的时间，后来利用F4

2、17 的一个 XLL加载项去开发，只用了几秒钟时间。对比强烈。这些是废话，现在开始：启动 VS2010,默认设置环境为VISUAL BASIC, 然后从菜单中选择：文件新建项目，见下图：在打开的窗口中点击VISUAL BASIC 下的类库，见下图：点击确定后，在解决方案资源管理器中右键单击CLASSLIBRARY1 选择添加引用见下图：名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 6 页 - - - - - - - - - 在出现的窗口中点击COM 页，然后点击“ MI

3、CROSOFT EXCEL 14.0 OBJECT LIBRARY”,见下图：在弹出的窗口中输入如下代码：Imports SystemImports System.Runtime.InteropServicesImports Microsoft.Win32Imports Excel = Microsoft.Office.Interop.Excel PublicClass Class1PublicFunction MYFUNCTION( ByValnumber1 As Double, ByVal number2 AsDouble) As DoubleReturn number1 * number

4、2End Function PublicShared Sub RegisterFunction(ByValtype As Type) Registry.ClassesRoot.CreateSubKey(getsubkeyname(type)End Sub PublicShared Sub UnregisterFunction(ByValtype AsType)名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页，共 6 页 - - - - - - - - - Registry.Cl

5、assesRoot.DeleteSubKey(getsubkeyname(type)End SubPrivateShared Function GetSubKeyName( ByVal type As Type) As StringDim s As New System.Text.StringBuilder() s.Append(CLSID ) s.Append(type.GUID.ToString().ToUpper() s.Append(Programmable)Return s.ToString()End FunctionEnd Class本文中自定义了一个用于EXCEL 的函数 MYF

6、UNCTION，用于返回两个数的乘积，其余的SUB和 FUNCTION ，都是 COM 开发的内容，这里只需照搬就行，实际开发中，只需把注意力集中在 MYFUNCTION的实现即可。然后在解决方案资源管理器中，右键单击CLASSLIBRARY1，选择属性，见下图：在弹出的窗口中点击编译页面，勾起“为COM 互操作注册”，见下图：然后生成这个项目，在菜单中点击“生成”“生成CLASSLIBRARY1”,见下图：名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页，共 6 页 - -

7、- - - - - - - 然后启动EXCEL 2010 ，点击开发工具下的加载项，见下图：在弹出的窗口中点击自动化按钮，见下图：然后在弹出的窗口中找到我们开发的CLASSLIBRARY1，点击确定，见下图：名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 6 页 - - - - - - - - - 系统会问找不到MSCORE.DLL ，点击否即可。见下图：然后点击确定，见下图：在 EXCEL 中点击 FX即插入函数，然后在类别中选择CLASSLIBRARY1.CLASS1

8、，就可以看到MYFUNCTION这个函数了，见下图：名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 5 页，共 6 页 - - - - - - - - - 上面的完了。插入一个题外话，要在VBA中调用上述的自定义函数要如何调用呢？我上网查了好一会儿才查到，要如下进行调有：Public Sub ddd() Dim aa As ClassLibrary1.Class1Set aa = New ClassLibrary1.Class1Debug.Print aa.MYFUNCTION(3, 4) End Sub 当然前提要在VBA 中引用这个CLASSLIBRARY1.CLASS1. 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 6 页，共 6 页 - - - - - - - - -