主题：excel进程无法关闭

 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进程没有被关闭

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

 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 还是不行

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

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

这样也行

什么意思。加上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

 谢谢二位