VBA调用DLL时出现ActvieX部件不能创建对象,是什么原因?
VB模块中如下:
Public acadApp As Object
Public ThisDrawing As Object
类模块中如下:
Option Explicit
Public Function Start()
Set ThisDrawing = acadApp.ActiveDocument
Form1.Show
End Function
Private Sub Class_Initialize()
Set acadApp = GetObject(, "AutoCAD.Application")
End Sub
VBA调用DLL时出现以上问题是那里的原因?跪求高手帮忙解答一下,在此先谢过了,
程序第一次运行时可以,但第二次以后运行就出现以上问题,
页:
[1]