标题:只有高手才能帮我了....
只看楼主
zh2208
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2008-3-5
 问题点数:0 回复次数:1 
只有高手才能帮我了....
在windows2000中,我用
dim objExcelapp As Excel.Application
objExcelapp = CreateObject("Excel.Application")
创建了一个excel对象
程序结束时,我用以下方法关闭excel
            objWorkBook.Close(False)
            objWorkSheet = Nothing
            objWorkBook = Nothing
            objExcelapp.Quit()
但是在进程中,excel.exe还是存在,删除不了...
请教高手如何删除进程中的excel...

另外,在xp中,关闭应用程序后,进程中的excel会自动关闭...不提示任何信息
但在windows中,则会弹出一个错误信息.如何写代码,让这个错误信息不在windows2000中报出来..
搜索更多相关主题的帖子: windows 应用程序 错误信息 excel False 
2008-04-16 20:49
fairy4
Rank: 4
等 级:贵宾
威 望:10
帖 子:738
专家分:267
注 册:2007-11-1
得分:0 
先退出,再設置為Nothing
objExcelapp.Quit()
objExcelapp = Nothing
objWorkBook= Nothing
objWorkSheet = Nothing

這句
objWorkBook.Close(False)
你想實現什麽?

以下函數刪除進程
  Private Sub KillExcel() '避免進程沖突,殺死現有excel進程
        Dim pProcess() As Process
        pProcess = Process.GetProcesses()
        Dim i As Integer
        For i = 0 To pProcess.Length() - 1
            If (pProcess(i).ProcessName.ToUpper = "EXCEL") Then
                pProcess(i).Kill() '關閉進程
            End If
        Next
    End Sub

一个人只有一个心脏,却有两个心房。一个住着快乐;一个住着悲伤。不要笑得太大声,不然会吵醒旁边的悲伤
2008-04-17 10:50



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-209457-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.355103 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved