[VBA函数]：如何做个vb小程序在autocad关闭的情况下打开autocad，我做的这个老打不开

Y*Y

如题

2. <normalfont>
   
3. Private Sub Command1_Click()
   
4. Dim acadApp As Object
   
5. Dim acadDoc As Object
   
6. Dim MoSpace As Object
   
7. On Error Resume Next
   
8. Set acadApp = GetObject(, "AutoCAD.Application")
   
9. If Err Then
   
10.    Err.Clear
    
11.    Set acadApp = CreatObject("AutoCAD.Application")
    
12.    If Err Then
    
13.       MsgBox Err.Description
    
14.       Exit Sub
    
15.    End If
    
16. End If
    
17. acadApp.Visible = True
    
18. acadApp.Left = 0
    
19. acadApp.Top = 0
    
20. acadApp.Width = 600
    
21. acadApp.Height = 400
    
22. End Sub
    
23. 
    
24. </normalfont>

<normalfont><br /> Private Sub Command1_Click()<br /> Dim acadApp As Object<br /> Dim acadDoc As Object<br /> Dim MoSpace As Object<br /> On Error Resume Next<br /> Set acadApp = GetObject(, "AutoCAD.Application")<br /> If Err Then<br />    Err.Clear<br />    Set acadApp = CreatObject("AutoCAD.Application")<br />    If Err Then<br />       MsgBox Err.Description<br />       Exit Sub<br />    End If<br /> End If<br /> acadApp.Visible = True<br /> acadApp.Left = 0<br /> acadApp.Top = 0<br /> acadApp.Width = 600<br /> acadApp.Height = 400<br /> End Sub<br /> <br /> </normalfont>

我点 command按扭就提示：编译错误子程序或函数未定义

请大侠指点THX

efan2000

检查一下这一句Set acadApp = CreatObject("AutoCAD.Application")，
其中CreatObject应为CreateObject，函数名称写错了。

efan2000

建议初学者在“工具”——“选项”菜单将“要求变量声明”一项打勾，这时新建时会在最前面加上一句Option Explicit。运行程序之时，在“运行”菜单选择“全编译执行”，这时程序会检查有没有语法或者拼写错误等。

Y*Y

CreateObject,哎，搞定可以启动
谢谢efan200,THX
刚学点VBA，请多多指教