最后的晨露 发表于 2012-11-13 12:12:24

Flyingdancing 发表于 2012-11-13 12:34:58

本帖最后由 Flyingdancing 于 2012-11-13 12:39 编辑

Sub sd()
Dim cad As Object
Dim ex As Object
'先打开一个EXCEL
Set ex = GetObject(, "excel.application")
ex.Application.Visible = False
'EXCEL不可见
'新建EXCEL
Set ex = CreateObject("excel.application")
ex.Application.Visible = True
'EXCEL可见
'具体区别可查看任务管理器，进程有两个EXCEL任务

Set cad = GetObject(, "autocad.application")
cad.Application.Visible = False

ex.Application.Quit
Set ex = Nothing 'set必须有才能退出
'只能退出一个EXCEL进程

cad.Application.Quit
Set cad = Nothing
'退出CAD
End Sub

最后的晨露 发表于 2012-11-13 13:54:12

blackfire 发表于 2012-11-23 02:51:29

在引用里选啊，什么版的都行
页: [1]
查看完整版本: AutoCAD VBA 如何读取各种版本的Micorsoft Excel 及互相兼容