如何激活CAD窗口。

Question

在这个帖子http://club.excelhome.net/thread-288794-1-1.html   On Error Resume Next
    
    Dim AppExcel As Object
    Dim AppAcad As Object
    
    Set AppAcad = GetObject(, "AutoCAD.Application")
    
    AppActivate AppAcad.Caption
运行单元程序可以，但运行带FUNCTION的程序（找不到问题）会出现副本文件。
问如何激活CAD窗口。

Answer 1

试一下AppAcad.Visable = true