Excel启动AutoCAD

有一段时间用到了VBA，感觉好玩，记下了一些代码

使用VBA在Excel中启动AutoCAD

Option Explicit
Dim acadApp As Object '定义acadApp这个对象，为AutoCad
------------------------------------------------------------------------------
Private Sub CommandButton1_Click()
Call test
End Sub
Sub test()
On Error Resume Next
Call ConnectToAcad '使用ConnectToAcad函数 链接AutoCad App
End Sub
------------------------------------------------------------------------------
Sub ConnectToAcad()
On Error Resume Next
Set acadApp = GetObject(, "AutoCAD.Application")
If Err Then
Err.Clear
Set acadApp = CreateObject("AutoCAD.Application")
If Err Then Quit
acadApp.Visible = True
End If
End Sub