Excel使用VBA刪除所有工作表出錯：自動化錯誤，遠程進程到類型庫或對象庫的連接丟失

Excel使用VBA刪除所有工作表出錯
執(zhí)行到那里提示的錯誤是：
實時錯誤：'-2147417848(80010108)'
自動化錯誤，遠程進程到類型庫或對象庫的連接丟失

     Dim xlsAppAs Excel.Application
     Dim wb As Excel.Workbook
     Dim sh As Excel.Worksheet
     Dim sheet As Excel.Worksheet
    
     Set xlsApp= CreateObject("Excel.Application")
     xlsApp.Visible = True
     Set wb = xlsAppx.Workbooks.Open(App.Path & "\test.xls")
    
     For Each sh  In wb.Sheets     
        sh.Delete
  
     Next
     wb.Close

    這樣刪除所有工作表可能會出錯，excel要求workbook里面必須要有一張sheet,而且是可見的