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

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