Excel使用VBA删除所有工作表出错：自动化错误，远程进程到类型库或对象库的连接丢失

Excel使用VBA删除所有工作表出错
执行到那里提示的错误是：
实时错误：'-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,而且是可见的