Foxtable(狐表)用户栏目专家坐堂 → excel进程无法关闭


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

主题:excel进程无法关闭

帅哥哟,离线,有人找我吗?
rjh4078
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3361 积分:24802 威望:0 精华:0 注册:2012/3/26 21:47:00
excel进程无法关闭  发帖心情 Post By:2015/8/16 10:30:00 [只看该作者]

 Dim App As New MSExcel.Application
 
    Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(file)
    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
    Dim Rg As MSExcel.Range   
    Rg = Ws.Range("E2")
    Return RG.VALUE
    app.quit
使用以上代码 执行完成后EXCEL进程没有被关闭


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


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2015/8/16 10:33:00 [只看该作者]

你用了Return 自然 app.quit 执行不了

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


加好友 发短信
等级:狐精 帖子:3361 积分:24802 威望:0 精华:0 注册:2012/3/26 21:47:00
  发帖心情 Post By:2015/8/16 10:45:00 [只看该作者]

 Dim App As New MSExcel.Application
 
    Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(file)
    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
    Dim Rg As MSExcel.Range   
    Rg = Ws.Range("E2")
   vars("当前价")=rg.value
    app.quit
去掉了return 还是不行

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


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2015/8/16 10:56:00 [只看该作者]

我测试都是正常的,要稍微等一下才退出的

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


加好友 发短信
等级:狐精 帖子:3361 积分:24802 威望:0 精华:0 注册:2012/3/26 21:47:00
  发帖心情 Post By:2015/8/16 11:10:00 [只看该作者]

 只能使用进程强杀了 因为都是代码执行 如果等待 就会循环报错

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


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2015/8/16 11:22:00 [只看该作者]

这样也行

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/8/16 11:27:00 [只看该作者]

什么意思。加上try catch

 

Dim App As New MSExcel.Application
try
    Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(file)
    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
    Dim Rg As MSExcel.Range
    Rg = Ws.Range("E2")
    vars("当前价")=rg.value
catch ex As exception
   
finally
    app.quit
End try


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


加好友 发短信
等级:狐精 帖子:3361 积分:24802 威望:0 精华:0 注册:2012/3/26 21:47:00
  发帖心情 Post By:2015/8/16 12:57:00 [只看该作者]

 谢谢二位

 回到顶部