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

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

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

 谢谢二位