Private Sub Command1_Click()
Dim acadapp As AcadApplication

On Error Resume Next
Set acadapp = GetObject(, "AutoCAD.application")
If Err Then
   Err.Clear
   Set acadapp = CreateObject("AutoCAD.application")
   If Err Then
      MsgBox ("不能运行AutoCAD,请检查是否安装了AutoCAD")
      Exit Sub
   End If
End If

    acadapp.WindowState = acMax
    acadapp.Visible = True
    
Dim myfilename As String
myfilename = "xxx.dwg"                'dwg文件路径

If Dir(myfilename) <> "" Then
    acadapp.Documents.Open myfilename
Else
    MsgBox ("文件不存在")
End If

End Sub