读书人

怎么关闭进程中的excel.等待高手的出现

发布时间: 2012-01-18 00:23:26 作者: rapoo

如何关闭进程中的excel.等待高手的出现..
在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中报出来..


[解决办法]
system.diagnostics.process("excel.exe").kill
[解决办法]
'程
Sub KillExcel()
Dim objSet
Dim Item
Dim pid
objSet = GetObject("winmgmts:").InstancesOf("Win32_Process")
For Each Item In objSet
If Item.Name = "EXCEL.EXE" Then
pid = Item.Handle
Shell("ntsd -c q -p " & pid)
End If
Next
End Sub
[解决办法]
贴子里头有一段代码,可以参考一下:

http://topic.csdn.net/u/20080401/16/d268cae6-bd12-4d1a-9cad-24ae5491fb31.html
[解决办法]
是否有如3楼所说的,在进程创建的时候给个标志位....然后在kill的时候kill这个就可以了..

是的,比如在创建前后记录时间KILL在该时间内的EXCEL 就OK.

读书人网 >VB Dotnet

热点推荐