Foxtable(狐表)用户栏目专家坐堂 → [求助]如何解决异常情况下不能正常释放xls的系统进程问题


  共有3779人关注过本帖树形打印复制链接

主题:[求助]如何解决异常情况下不能正常释放xls的系统进程问题

帅哥哟,离线,有人找我吗?
智友软件工作室
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:912 积分:7445 威望:0 精华:0 注册:2013/2/25 13:10:00
[求助]如何解决异常情况下不能正常释放xls的系统进程问题  发帖心情 Post By:2020/4/19 13:24:00 [只看该作者]

如果在系统操作代码中有异常抛出,后面的关闭进程会不执行,请问怎么解决

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(duqulujing)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range
系统操作
'设置显示状态为不显示
App.Visible = False
'后台关闭程序
App.Quit

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110494 积分:562348 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/4/19 22:33:00 [只看该作者]

Dim App As New MSExcel.Application
try
    Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(duqulujing)
    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
    Dim Rg As MSExcel.Range
    系统操作
    '设置显示状态为不显示
    App.Visible = False
    '后台关闭程序
    App.Quit
    catch
    '后台关闭程序
    App.Quit
End try


 回到顶部