|
本帖最后由 andysky 于 2018-12-25 21:55 编辑
做了一个样本,DLL文件中包含了一个函数MaxORMin和一个创建工作表目录的过程
使用regsvr32命令安装这个dll文件后,就可以通过VBA代码来调用dll虽的函数和过程了
'调用DLL中的自定义函数
'MaxORMin函数功能:按条件计算最大值或者最小值
'第一参数为要计算最小值或者最大值的数值区域
'第二参数为条件区域,必须和第一参数的行数、列数相同
'第三参数为条件
'第四参数为布尔值,值为True时表示计算最小值,值为False时表示计算最大值
Public Function MaxORMin(rng As Range, rng2 As Range, Mystr As String, Optional Bl As Boolean = False) As Double
MaxORMin = Application.COMAddIns.Item("Fun.Connect").Object.maxmin(rng, rng2, Mystr, Bl)
End Function
'调用DLL中的Sub过程
Sub 建目录() '创建工作表目录
Application.COMAddIns.Item("Fun.Connect").Object.mulu
End Sub
封装函数与过程.rar
(310.49 KB, 下载次数: 111)
附件中包含一个DLL文件,一个EXE文件(EXE文件中只包含这个DLL文件,没有别的,仅仅是为了方便不会注册DLL文件的朋友使用,双击就装好了)
这是一种保护代码的方式,让他人看不到源代码,只能通过VBA代码去调用这个接口,通过接口调用封装在里面的函数及Sub过程。
VB6封装的,因此仅支持32位office。64位用户需要用VSTO办法来封装。
|
评分
-
1
查看全部评分
-
|