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

九阳先生

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