免注册

Function CreateObjectEx(filePath As String, classNameOrClsid As String, [tlbFilePath As String]) As Object

EventApp.CreateObjectEx

两种方法等同

第3个参数是tlb路径，当dll里不包含tlb时使用

不设置第3个参数时，右边获取编号为1的tlb资源，然后遍历其他所有tlb资源，直到找到第1个ClassName为止

如设置第3个参数后，不再遍历内部tlb资源

一、直接调用导出函数

Dim obj As Object

Set obj = CreateObjectEx("c:\1.dll","ClassName")

Debug.Print obj.Property

obj.Method

二、注册EventApp.dll后调用对象模型

Dim obj As Object

Dim opp as Object

set opp = CreateObject("loquat.EventApp")

set obj = opp.CreateObjectEx("c:\1.dll","ClassName")

Debug.Print obj.Property

obj.Method