Office中国论坛/Access中国论坛

标题: 如何在ACCESS中用代码关闭EXCEL程序 [打印本页]

作者: sunredday 时间: 2002-10-29 17:10
标题: 如何在ACCESS中用代码关闭EXCEL程序
用 Shell("excel.exe " + Chr(34) + "c:\材料信息系统\材料报价表.xls" + Chr(34), vbMaximizedFocus)打开的程序，如何用代码关闭？

作者: 九阳先生 时间: 2002-10-29 17:37
Dim objExcel As Excel.Application
Dim varTemp As Variant

varTemp = Shell("excel.exe " + Chr(34) + "c:\材料信息系统\材料报价表.xls" + Chr(34), vbMaximizedFocus)
Set objExcel = GetObject(, "Excel.Application")
'objExcel.ActiveWorkbook.Saved = True 如果不让用户修改，去掉注释
objExcel.Quit
Set objExcel = Nothing

作者: sunredday 时间: 2002-10-31 22:08
多谢了。但现在还有一个问题。
如何判断EXCEL是打开还是关闭的。打开时需要关闭。否则不需要。
if.........then
Dim objExcel As Excel.Application
Set objExcel = GetObject(, "Excel.Application")
'objExcel.ActiveWorkbook.Saved = True 如果不让用户修改，去掉注释
objExcel.Quit
Set objExcel = Nothing
end if
dnd sub

作者: zyz 时间: 2002-10-31 22:45
再 GetObject 一次，通过捕获错误判断，如果有错误，则表示已关闭，否则就是打开的，再次关闭。[em26]

作者: sunredday 时间: 2002-11-1 03:45
多谢了。去掉IF，添上错误捕捉，也是一个办法。应该有更直接的办法吧。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)