通过VB6将自定义函数和Sub过程同时封装在一个DLL中，供VBA调用

andysky

做了一个样本，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)

2018-12-25 19:31 上传

点击文件名下载附件

附件中包含一个DLL文件，一个EXE文件(EXE文件中只包含这个DLL文件，没有别的，仅仅是为了方便不会注册DLL文件的朋友使用，双击就装好了)

这是一种保护代码的方式，让他人看不到源代码，只能通过VBA代码去调用这个接口，通过接口调用封装在里面的函数及Sub过程。

VB6封装的，因此仅支持32位office。64位用户需要用VSTO办法来封装。

jy03342543

感谢罗老师分享