vba getobject问题

xfwang

我在Access中用getobject打开一个dwg文件，有部分机器在程序执行完毕后会自动将文件关闭，此时的AutoCAD窗口不能输入任何命令，只能使用最近打开的文件列表。各位高手有知道原因的吗？

我按逐语句单步运行时，只要不运行最后一个语句end sub，就一切正常。

Private Sub Command1_Click()
    Dim mycad As Object
    Set mycad = GetObject("c:\clcp.dwg")
    mycad.Application.Visible = True
End Sub

wyj7485

先打开acad,再打开dwg文件看看

xfwang

不通过程序打开是正常的.

通过程序打开也只是部分机器不正常. 不正常的机器重装Office和CAD也不行.