office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

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

Excel使用VBA刪除所有工作錶齣錯:自動化錯誤,遠程進程到類型庫或對象庫的連接丟失

2020-04-27 08:00:00
zstmtony
原創
167

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

分享