在线等待: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
...全文
158 26 打赏 收藏 转发到动态 举报
写回复
用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）
滞环控制simulink仿真模型
滞环控制simulink仿真模型
C++课程设计题目源代码
打开链接下载源码： https://pan.quark.cn/s/589796089f72 C++课程设计任务列表，涵盖以下内容：1、识别并显示10至99范围内，各位数乘积超过各位数和的数值，例如数字12不满足条件，因为1乘以2小于1加2，故不输出；而数字27满足条件，因为2乘以7大于2加7，因此需要输出该数。2、开发一个功能，用于从用户输入的任意数量实数中找出最大值与最小值：首先要求用户输入一个正整数n，代表数值的个数，随后用户可输入任意n个实数，程序需找出这n个数中的最大值和最小值并将它们展示出来。3、实现两个已排序数组的合并操作：设有数组A和B，且假设这两个数组的元素均已按照降序排列。编写程序将A和B合并成一个新的数组C，并确保C中的元素同样保持降序排列。int A[10]={123, 86,80, 49,33,15,7,0,-1,-3}；int B[10]={100,64,51,50,27,19,15,12,5,2}；4、设计一个函数，用于计算特定分数序列前n项的总和，该序列为1/2,1/3,1/4,1/5,1/6,1/7,...。要求在主程序中提示用户输入一个整数n，并验证输入的合法性（n需大于1方为有效），若输入合法，则调用求和函数并显示计算结果。5、编写一个程序，计算两个用户输入日期之间的天数差：用户需以year1，month1，day1和year2，month2，day2的格式输入两个日期，程序随后计算这两个日期之间的天数间隔，并将结果输出到屏幕上。要求编制具有如下原型的函数difs2Date：long GetDayDifference（int y1,int m1,int d1,int y2,int m2,int d2）；并在主函数中调用此函数，将计...
SAP ABAP调试器高级技术
代码下载地址： https://pan.quark.cn/s/ee8627e4e6d7 ABAP调试器是一种功能强大的工具，可用于在执行期间对ABAP代码进行检验。除了常规的核心功能（例如逐行运行代码以及检验变量、字段符号和引用的值）之外，它还提供了一些辅助性的特性，能够简化并压缩调试会话的时长。并非所有使用者都熟悉这些辅助特性。SAP ABAP调试器是处理和优化ABAP代码开发与维护工作的核心资源，它配备了多样的功能来协助开发人员在运行状态下进行检验和排除故障。此资源着重阐述了ABAP调试器的一些高级特性，涵盖了深入分析调用堆栈、系统级调试、更新会话调试以及提升调试效率的方法。 1. **深入分析调用堆栈**：除了常规的应用程序调试，开发人员有时需要对调用堆栈的内部层级进行深入调试，特别是在错误出现在异步执行的更新处理或系统级程序时。通过启用**系统级调试**，可以访问通常不公开的系统代码，但这也会导致调用堆栈的显著增加，因此需要审慎操作。 2. **系统级调试**：对于不含业务逻辑的系统级程序，开发人员通常无需进行调试。然而，在特定情形下，例如进行错误追踪时，可能需要进入系统代码。借助调试器的“系统调试启用/禁用”选项，可以赋予对系统程序的调试权限。 3. **更新会话调试**：在处理异步更新任务，例如持久化业务数据时，错误可能发生在更新任务内部。激活**更新会话调试**，在更新任务完成后，调试器将自动启动，展示执行路径。比如，在变更成本中心后，通过输入调试指令 "/h" 启动调试，保存后能够看到更新过程中的错误。 4. **分析调用堆栈**：在进行深入调试时，调用堆栈是至关重要的。通过分析调用堆栈，能够定位到引发问题的具体位置，如在VB_V2_NORMAL...
超170个最新微信小程序源码网盘链接
源码链接： https://pan.quark.cn/s/a4b39357ea24 小程序雷达 AI 驱动的小程序生态选型与风险评估工具，把微信小程序开发资源转化为可筛选、可评估、可对比的技术雷达。 线上地址 主站： Vercel： 适合谁 正在做微信小程序技术选型的产品、研发和架构团队。 需要判断 Taro、uni-app、原生小程序、组件库、云开发和 SDK 风险的团队。 需要把历史 awesome 列表转成可筛选、可对比、可验证技术雷达的维护者。 可以做什么 Radar：按推荐状态、风险等级、资源类型、分类和适用场景浏览小程序生态资源。 Quick Search：快速搜索资源并跳转常用页面。 Compare：对比 Taro、uni-app、原生小程序等核心方案。 Advisor：输入选型问题，获得推荐结论、适用/不适用条件、迁移成本、下一步和证据来源。 Doctor：粘贴小程序项目配置，识别框架依赖、过时方案和迁移风险。 Weekly：查看小程序生态周报和近期风险信号。 数据概览 当前数据集中包含 236 个小程序生态资源。 完整资源可在 Radar 页面和导出能力中查看。 核心样例 Taro ★30.6k+ - 使用 React 的方式开发小程序的框架，同时支持生成多端应用 uni-app ★36.1k+ - 使用 Vue 语法开发小程序、H5、App的统一框架 MPX ★2.1k+ - 增强型小程序框架，深度性能优化，支持跨小程序平台开发，完全兼容原生小程序组件 WePY ★21.7k+ - 支持组件化的小程序开发框架 vant-weapp ★12.3k+ - 高颜值、好用、易扩展的微信小程序 UI 库 tdesign-miniprogram ★1.3...
ASP

28,403

社区成员

356,946

社区内容

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

加载中

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

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

+ 用AI写文章