Dim excelapp As New Excel.Application
 Call DetectExcel'''函数是判断EXCEL是否打开,如果打开就必须想关闭EXCLE程序excelapp.Workbooks.Open (App.Path + "\bzd.xls")
 ..............
excelapp.ActiveWorkbook.SaveAs ("路径")
''''关闭EXCEL代码
     excelapp.ActiveWorkbook.Close
     excelapp.Quit
     Set excelapp = Nothing
问题是在WIN98的时候是可以关闭excel,在WIN2000的时候就不行,在任务管理器中还可以看到EXCEL,谢谢!

解决方案 »

  1.   

    呵呵,这个问题~~~我以前也经常碰到,个人感觉像是Excel的Bug。
    你可以试着升级Office的版本、打一些补丁。
    还有一个可能的解决办法是延时退出,我一直怀疑是因为Excel在卸载时要作的工作太多,所以VB退出了,它还没有退出,但我以前因为时间原因,所以一直没有去在这方面下功夫。另外,延时退出的时候,不要用sleep等函数,而是用Timer去定时退出。
      

  2.   


        先暂时将其Visible设为False,待程序退出后结束整个工程项目,看看是不是能关闭掉!