如何在ACCESS中用代码关闭EXCEL程序

sunredday

用 Shell("excel.exe " + Chr(34) + "c:\材料信息系统\材料报价表.xls" + Chr(34), vbMaximizedFocus)打开的程序，如何用代码关闭？

九阳先生

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

多谢了。但现在还有一个问题。
如何判断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

再 GetObject 一次，通过捕获错误判断，如果有错误，则表示已关闭，否则就是打开的，再次关闭。[em26]

sunredday

多谢了。去掉IF，添上错误捕捉，也是一个办法。应该有更直接的办法吧。