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

yanwei100 2004-04-07 05:38:31
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
...全文
79 26 打赏 收藏 举报
写回复
26 条回复
切换为时间正序
当前发帖距今超过3年，不再开放新的回复
发表回复
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
  • 打赏
  • 举报
 回复
gz
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系统？SpreadJS让开发如此简单
最近关注到“知乎”上的一个热门问题：国内有哪些类似 Google Docs 的在线文档编辑软件？大家的回复基本上都是围绕成熟的在线文档编辑软件展开，如石墨文档、腾讯文档、有道云协作等，其中每一款软件都有其最适合的...
python线程卡死问题解决了吗_python爬虫多线程假死怎么解决？
抓baidu数据，但跑不了多久就假死，无反应也不报错，初学python，搞了两礼拜没搞明白，望各位前辈指点下#coding:utf-8'''百度排名查询，代理多线程版本'''import StringIO,pycurl,time,random,re,os,csvfrom ...
vbs 杀死进程_Windows系统使用vbs脚本或bat脚本强制杀死指定所有进程 vbs实现循环持续写入内容到vbs打开开的记事本 使用vbs、bat添加windows计划任务 使用cmd scht...
vbs脚本，原理是用vbs代码获取当前进程列表，检索到指定进程名的进程，终止进程 脚本名：Force-kill-process.vbs '黑人必会！强制杀进程！对付杀毒软件啊 '备注：vbs强制关闭程序 '防止出现错误，加On Error Resume ...
进程等待与程序替换
进程等待 子进程被创建，谁先运行谁先退出？ 谁先运行，是由调度器说了算 那谁先退出呢？ 一般来说，我们通常要让子进程先退出。 因为父进程可以很容易对子进程进行管理(垃圾回收).子进程处理业务，需要让父进程帮...
【Linux&C】操作系统实验一 进程管理与进程通信
文章目录零、前言一、实验内容二、实验步骤三、实验数据及源代码四、实验结果分析五、思考题1、进程创建与进程并发执行2、进程的睡眠、同步、撤消等进程控制3、多进程通过加锁互斥并发运行4、进程间通过信号机制实现...
发帖
ASP

2.8w+

社区成员

35.7w+

社区内容

ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
帖子事件
创建了帖子
2004-04-07 05:38
社区公告
暂无公告