在线等待:Excel死进程问题？顶者给分，不够再加

2004-04-07 05:38:31 171 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

关于vc操作Excel表格后出现Excel.exe进程不能关闭的问题这段时间做了个有关Excel报表导入数据库的小项目，发现在阅读详情

On Error resume NEXT
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.DisplayAlerts = false
objExcelApp.Application.Visible = false
objExcelApp.WorkBooks.Open(filename)
if isEmpty(objExcelApp.ActiveWorkBook) then
set objExcelApp.WorkBooks = nothing
objExcelApp.Quit
set objExcelApp = nothing
exit sub
end if
set objExcelBook = objExcelApp.ActiveWorkBook
if (not isEmpty(objExcelBook)) then
set objExcelSheets = objExcelBook.Worksheets(1)
set objExcelSheet = objExcelBook.Sheets(3)
'-----------------------------------------
'开始从excel文件读数据
end if

...全文

vb.net操作Excel后进程残留Excel.exe问题方案一调用Kill方法，结束进程，居然很多人就这么干了，居然也还有弄不掉的问题。首先，这样不能区分正常打开的Excel和软件调用的Excel，进程名称完全一样。于是要找一个关联的标签或者进程ID，也许能走通。方案二垃圾回收，System.GC.Collect()。百度的结论大多是这样，在程序结尾加上。事实上没有用。奇葩的事情：如果你把System.GC.Collect()放在程序入口，虽然不能帮你清理这次的Excel.exe，但是下一次运行的时候，会帮你清理掉，也就是说，不会反复运行，产生一堆E. 阅读详情

yanwei100

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

yanwei100 2004-04-08

打赏
举报

由于只有100分，如果还需要，可以告诉我，另外开贴

yanwei100 2004-04-08

打赏
举报

感谢大家的关注。虽然这个问题还没有解决，但通过和大家的交流，还是对原来的程序进行了一些改进。
特别感谢qxg1123(雄关漫道真如铁，而今迈步从头越)
和xzq686(瞬)

yanwei100 2004-04-08

打赏
举报

这是我的完整程序，在异常情况下，执行到isEmpty(objExcelApp.ActiveWorkBook)会报错unknown exception。

sub ReadExcel(filename,byRef MyDataCollection,byRef Count)
' check if excel file exist
Set fs = CreateObject("Scripting.FileSystemObject")
if (not fs.FileExists(filename)) then
Response.Write "Can't find the Excel File " + filename
Count = 0
exit sub
end if
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.DisplayAlerts = false
objExcelApp.Application.Visible = false
objExcelApp.Application.WorkBooks.Open(filename)
if (not isEmpty(objExcelApp.ActiveWorkBook)) then
set objExcelSheet = objExcelApp.ActiveWorkBook.Sheets(3)
'get the count number of records
while objExcelSheet.cells(Count+Start_line,1)<>""
Count=Count+1
wend
if ( Count>0 ) Then
redim MyDataCollection(Count)

for i = 1 to Count
' read record from curent line in excel
dim MyProject
set MyProject = new Project
dim line
line = i + Start_line -1
GetRecordFromExcelLine MyProject,objExcelSheet,line
set MyDataCollection(i) = MyProject
next
end if

else
Response.Write "Excel File open fail !"
end if
objExcelApp.WorkBooks.Close
objExcelApp.Quit
set objExcelApp = Nothing

end sub

jasonboy 2004-04-08

打赏
举报

帮你up

yanwei100 2004-04-08

打赏
举报

我的程序在正常情况下是可以运行的，现在的问题是有些时候不知道出了什么异常，然后系统就开始不正常了，也就是set objWorkBook=objExcelApp.WorkBooks.Open("c:\aa.xls")时会报错，然后就会出现Excel死进程。
没有on error resume next
if isEmpty(objExcelApp.ActiveWorkBook) then 等语句不会被执行
即使加上on error resume next
程序执行了objExcelApp.Quit后Excel进程还是存在

qxg1123 2004-04-08

打赏
举报

<%'On Error resume NEXT
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.DisplayAlerts = false
objExcelApp.Application.Visible = false

dim objWorkBook
set objWorkBook=objExcelApp.WorkBooks.Open("e:\aa.xls")'确定filename是否存在!

if isEmpty(objExcelApp.ActiveWorkBook) then
set objWorkBook= nothing
'objExcelApp.Quit
'set objExcelApp = nothing'"set objExcelApp=nothing"是不行的,去掉。
else
set objExcelBook = objExcelApp.ActiveWorkBook
if (not isEmpty(objExcelBook)) then
response.write "1asdffsd12343"
'response.end
set objExcelSheets = objExcelBook.Worksheets(1)
set objExcelSheet = objExcelBook.Sheets(2)
'-----------------------------------------
'开始从excel文件读数据
'切记最后要objExcelApp.Quit
end if
end if
objExcelApp.Quit
set objExcelApp=nothing
%>没有任何问题

xzq686 2004-04-08

打赏
举报

我用下面的代码，直接打开c:\aa.xls!可以执行到response.write "1asdffsd12343"
<%
On Error resume NEXT
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.DisplayAlerts = false
objExcelApp.Application.Visible = false

dim objWorkBook
set objWorkBook=objExcelApp.WorkBooks.Open("c:\aa.xls")'确定filename是否存在!

if isEmpty(objExcelApp.ActiveWorkBook) then
set objWorkBook= nothing
objExcelApp.Quit
'set objExcelApp = nothing'"set objExcelApp=nothing"是不行的,去掉。
else
set objExcelBook = objExcelApp.ActiveWorkBook
if (not isEmpty(objExcelBook)) then
response.write "1asdffsd12343"
response.end
set objExcelSheets = objExcelBook.Worksheets(1)
set objExcelSheet = objExcelBook.Sheets(2)
'-----------------------------------------
'开始从excel文件读数据
'切记最后要objExcelApp.Quit
end if
end if
%>

yanwei100 2004-04-08

打赏
举报

当问题出现后,用debug监视objExcelApp.WorkBooks的值，会被通知：
unable to evaluate the expression. 被呼叫方拒绝接收呼叫。

yanwei100 2004-04-08

打赏
举报

to xzq686(瞬)
set objWorkBook = objExcelApp.WorkBooks.Open(filename)
和我原来的程序是一样的, 运行到这一行还是出错"unknown exception"
只要对变量对象赋值,就会出错.
不知道有什么方法可以检测打开文件的状态,我怀疑问题出在这里

yanwei100 2004-04-08

打赏
举报

下标从0开始，ActiveWorkBook.Sheets(3)是第四个表，确定存在？

ActiveWorkBook.Sheets(3)是第三个表页,肯定存在的.我的另外一台机器上运行就没有问题.

xzq686 2004-04-08

打赏
举报

下面那样试试：
On Error resume NEXT
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.DisplayAlerts = false
objExcelApp.Application.Visible = false

dim objWorkBook
set objWorkBook=objExcelApp.WorkBooks.Open(filename)'确定filename是否存在!

if isEmpty(objExcelApp.ActiveWorkBook) then
set objWorkBook= nothing
objExcelApp.Quit
'set objExcelApp = nothing'"set objExcelApp=nothing"是不行的,去掉。
exit sub
end if
set objExcelBook = objExcelApp.ActiveWorkBook
if (not isEmpty(objExcelBook)) then
set objExcelSheets = objExcelBook.Worksheets(1)
set objExcelSheet = objExcelBook.Sheets(3)
'-----------------------------------------
'开始从excel文件读数据
end if

dingdi 2004-04-08

打赏
举报

qxg1123 2004-04-08

打赏
举报

下标从0开始，ActiveWorkBook.Sheets(3)是第四个表，确定存在？

aspnetxp 2004-04-08

打赏
举报

up...
up...

yanwei100 2004-04-08

打赏
举报

这是我的代码，我把业务逻辑去掉了。现在，去掉了on error resume next 后
在运行到set objExcelSheet = objExcelApp.ActiveWorkBook.Sheets(3)时
出错"unknown exception"
我查过,文件是存在的. 我怀疑是不是大开文件时出的错

sub ReadExcel(filename,byRef MyDataCollection,byRef Count)

Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.DisplayAlerts = false
objExcelApp.Application.Visible = false
objExcelApp.WorkBooks.Open(filename)
set objExcelSheet = objExcelApp.ActiveWorkBook.Sheets(3)
if (not isEmpty(objExcelSheet)) then
Response.Write "Excel File open succeesful !"
else
Response.Write "Excel File open fail !"
end if
if (not isEmpty(objExcelApp.WorkBooks)) then
objExcelApp.WorkBooks.Close
set objExcelApp.WorkBooks = Nothing
end if
objExcelApp.Quit
set objExcelApp = Nothing

end sub

qxg1123 2004-04-07

打赏
举报

去掉on error resume next

再把quit拿出来

把建立对象和关闭对象及销毁对象的代码放到相同级别的代码块中

如果if不成立，你的代码就没有释放资源了
set objExcelApp.WorkBooks = nothing会不会销毁objExcelApp,
如果会，你的objExcelApp.Quit也就无效或者出错了

yanwei100 2004-04-07

打赏
举报

楼上,你没看到我的代码?
if isEmpty(objExcelApp.ActiveWorkBook) then
set objExcelApp.WorkBooks = nothing
objExcelApp.Quit
set objExcelApp = nothing
exit sub

qxg1123 2004-04-07

打赏
举报

objExcelApp.Quit
只set =nothing是不会关掉进程的，如果你测试了几次不死才怪

whghwujx 2004-04-07

打赏
举报

up
我用DELPHI导出数据的时候，当记录数超过900的时候就会出现这种情况，在ASP中还没有用到过，
up

yanwei100 2004-04-07

打赏
举报

我现在是在从Excel读数据时出现这个问题，还没有向Excel写入那

加载更多回复（6）

在线等待:Excel死进程问题？ 顶者给分，不够再加

相关推荐

在线等待:Excel死进程问题？顶者给分，不够再加