AutoCAD VBA 如何读取各种版本的Micorsoft Excel 及互相兼容

Flyingdancing

2. Sub sd()
   
3. Dim cad As Object
   
4. Dim ex As Object
   
5. '先打开一个EXCEL
   
6. Set ex = GetObject(, "excel.application")
   
7. ex.Application.Visible = False
   
8. 'EXCEL不可见
   
9. '新建EXCEL
   
10. Set ex = CreateObject("excel.application")
    
11. ex.Application.Visible = True
    
12. 'EXCEL可见
    
13. '具体区别可查看任务管理器，进程有两个EXCEL任务
    
14. 
    
15. Set cad = GetObject(, "autocad.application")
    
16. cad.Application.Visible = False
    
17. 
    
18. ex.Application.Quit
    
19. Set ex = Nothing 'set必须有才能退出
    
20. '只能退出一个EXCEL进程
    
21. 
    
22. cad.Application.Quit
    
23. Set cad = Nothing
    
24. '退出CAD
    
25. End Sub

Sub sd()<br /> Dim cad As Object<br /> Dim ex As Object<br /> '先打开一个EXCEL<br /> Set ex = GetObject(, "excel.application")<br /> ex.Application.Visible = False<br /> 'EXCEL不可见<br /> '新建EXCEL<br /> Set ex = CreateObject("excel.application")<br /> ex.Application.Visible = True<br /> 'EXCEL可见<br /> '具体区别可查看任务管理器，进程有两个EXCEL任务<br /> <br /> Set cad = GetObject(, "autocad.application")<br /> cad.Application.Visible = False<br /> <br /> ex.Application.Quit<br /> Set ex = Nothing 'set必须有才能退出<br /> '只能退出一个EXCEL进程<br /> <br /> cad.Application.Quit<br /> Set cad = Nothing<br /> '退出CAD<br /> End Sub

blackfire

在引用里选啊，什么版的都行