真的是没妞就没对象吗?哈哈哈
问题描述:用 VB6 写了个 ActiveX DLL,类名是 oManager。
以下代码是 Excel VBA 调用此 DLL的两个过程:有 New 的时候运行正常,没有 New 的时候提示对象引用出错。
个人认为 ObjDLL是全局变量,创建对象实例后也一直没有被释放,为何无 New 就报错?
Option Explicit
Public ObjDLL As New oManager_Prj.oManager ( 就是这个妞 ^_^)
==================================================================================
Public Sub IFace_oManager( )
On Error Resume Next
Set ObjDLL = GetObject(, "oManager_Prj.oManager")
If Err Then
Err.Clear: Set ObjDLL = CreateObject("oManager_Prj.oManager")
If Err Then
MsgBox Err.Description
Exit Sub
End If
End If
End Sub
==================================================================================
Public Sub 管理系统( )
IFace_oManager : ObjDLL.ShowMainForm
End Sub
提前祝各位新年快乐,步步高升!