主题：excel进程无法关闭

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