在线等待: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
...全文
119 26 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
26 条回复
切换为时间正序
请发表友善的回复…
发表回复
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）
进程等待与程序替换
进程等待 子进程被创建，谁先运行谁先退出？ 谁先运行，是由调度器说了算 那谁先退出呢？ 一般来说，我们通常要让子进程先退出。 因为父进程可以很容易对子进程进行管理(垃圾回收).子进程处理业务，需要让父进程帮我们拿到子进程执行的结果 所以，一般子进程是需要被等待的，具体是被父进程等待 进程等待必要性 之前讲过，子进程退出，父进程如果不管不顾，就可能造成‘僵尸进程’的问题，进而造成内存泄漏。 另外，进程一旦变成僵尸状态，那就刀枪不入，“杀人不眨眼”的kill -9 也无能为力，因为谁也没有办法杀死一个已
【Linux修炼】11.进程的创建、终止、等待、程序替换
进程的创建，终止，等待，进程的程序替换（和进程地址空间强相关）在linux中fork函数是非常重要的函数，它从已存在进程中创建一个新进程。新进程为子进程，而原进程为父进程。 那么在调用fork函数之前只有一个进程，当进程调用fork时，当控制转移到内核中的fork代码后，内核做：对于这个问题，从三个层次去理解。1. 如何理解fork函数有两个返回值问题？对于fork函数，当调用时，fork函数内部会有两个执行流，对应父进程和子进程，当fork函数内部代码执行完毕后，子进程也就被创建好了并有可能在OS的运行队
java程序关闭Excel,“用java打开一个excel文件时出现的问题。“
java代码创建一个Excel文件参考freespire.xls for java 的excel工作表创建方法利用Java代码如何关闭指定的excel文件？关闭自定的excel文件 不是导出？在java中 打开本地固定目录下的excle,并可以编辑!如果你想打开excel必载到本机才行的，怎么可能在服务接打开给你显示并且编辑呢。说不定服务器上都没装office呢。你以前是用jsp页面操作那个exc...
进程的控制（进程终止/进程等待/进程程序替换）
✳️fork()有两个返回值，会返回两次，这是因为父子进程都会执行return；同一个id会有不同的值，是因为地址空间的存在，一个地址能够通过页表映射到不同的物理内存，会产生出同一个变量会不同的值。✳️在linux中fork函数时非常重要的函数，它从已存在进程中创建一个新进程。新进程为子进程，而原进程为父进程。返回值：自进程中返回0，父进程返回子进程id，出错返回-1。
ORACLE_错误代码
本篇文章是对oracle错误代码进行了详细的总结与分析，需要的朋友参考下 ORA-00001: 违反唯一约束条件 (.) 错误说明：当在唯一索引所对应的列上键入重复值时，会触发此异常。 ORA-00017: 请求会话以设置跟踪事件 ORA-00018: 超出最大会话数 ORA-00019: 超出最大会话...
ASP

28,409

社区成员

356,971

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章