office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

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

2020-04-27 08:00:00
zstmtony
原创
166

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,而且是可见的

分享