2147417848 80010108 Automation Error The
Contents |
One games Xbox 360 games PC automation error the object invoked has disconnected from its clients games Windows games Windows phone games Entertainment All
Run Time Error 2147417848 (80010108)
Entertainment Movies & TV Music Business & Education Business Students & "run-time error -2147417848 (80010108)" excel educators Developers Sale Sale Find a store Gift cards Products Software & services Windows Office Free downloads & security
Run Time Error 80010108 Automation Error
Internet Explorer Microsoft Edge Skype OneNote OneDrive Microsoft Health MSN Bing Microsoft Groove Microsoft Movies & TV Devices & Xbox All Microsoft devices Microsoft Surface All Windows PCs & tablets PC accessories Xbox & games Microsoft Band Microsoft automation error the object invoked has disconnected from its clients vb6 Lumia All Windows phones Microsoft HoloLens For business Cloud Platform Microsoft Azure Microsoft Dynamics Windows for business Office for business Skype for business Surface for business Enterprise solutions Small business solutions Find a solutions provider Volume Licensing For developers & IT pros Develop Windows apps Microsoft Azure MSDN TechNet Visual Studio For students & educators Office for students OneNote in classroom Shop PCs & tablets perfect for students Microsoft in Education Support Sign in Cart Cart Javascript is disabled Please enable javascript and refresh the page Cookies are disabled Please enable cookies and refresh the page CV: {{ getCv() }} English (United States) Terms of use Privacy & cookies Trademarks © 2016 Microsoft
VBA Code & Other Help Excel Help Solved: Run-time error '-2147417848 (80010108)' If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click
Run Time Error 2147417848 80010108 Automation Error
the register link above to proceed. To start viewing messages, select the forum that
Excel Vba Run Time Error 2147417848
you want to visit from the selection below. Results 1 to 10 of 10 Thread: Solved: Run-time error '-2147417848 (80010108)' Thread automation error the object invoked has disconnected from its clients windows 7 Tools Show Printable Version Subscribe to this Thread… Display Linear Mode Switch to Hybrid Mode Switch to Threaded Mode 08-31-2009,05:03 PM #1 nst1107 View Profile View Forum Posts View Blog Entries View Articles VBAX Tutor https://support.microsoft.com/en-us/kb/849179 Joined Nov 2008 Location Monticello Posts 245 Location Solved: Run-time error '-2147417848 (80010108)' I'm running the following sub and getting the 'Automation error The object invoked has disconnected from its clients.' error at the bolded line. I've looked around, but don't see any help for this specific problem. Any help is appreciated. Option Explicit Sub ShowMenu(ButtonName As String, ButtonLeft As Single, ButtonTop As Single, ButtonHeight As Single) Dim img As MSForms.Image, http://www.vbaexpress.com/forum/showthread.php?28257-Solved-Run-time-error-2147417848-(80010108) lbl As MSForms.Label, frm As MSForms.Control Dim fMenu As MSForms.Frame Dim fillRange As Range Dim L As Long Dim maxWidth As Single Set fMenu = UserForm1.Menu Set fillRange = Sheet1.Rows(2).Find(ButtonName).Offset(2) If fillRange.Offset(Rows.Count - 4, 1).End(xlUp).Row = 3 Then L = 4 Else L = fillRange.Offset(Rows.Count - 4, 1).End(xlUp).Row End If Set fillRange = fillRange.Resize(L - 3, 3) With fMenu .Left = ButtonLeft .Top = ButtonTop + ButtonHeight 'Add menu items. For L = 1 To fillRange.Rows.Count [B]Set frm = .Controls.Add("Forms.Frame.1", ButtonName & fillRange.Cells(L, 2))[/B] With frm .Caption = vbNullString .SpecialEffect = fmSpecialEffectFlat .Left = 0 .Top = L * 18 - 18 .Height = 18 Set img = .Controls.Add("Forms.Image.1", frm.Name & "Image") With img .Left = 0 .Width = 18 .Top = 0 .Height = 18 .BackColor = &H80000000 .BorderStyle = fmBorderStyleNone .Picture = LoadPicture(fillRange.Cells(L, 1)) End With Set lbl = .Controls.Add("Forms.Label.1", frm.Name & "Label") With lbl .Left = 24 .WordWrap = False .Caption = fillRange.Cells(L, 2) .AutoSize = True If .Width > maxWidth Then maxWidth = .Width .Top = 3 .Height = 12 .Accelerator = fillRange.Cells(L, 3) End With End With Next 'Resize. .Width = maxWidth + 3 For Each frm In .Controls If TypeOf frm Is MSForms.Frame Then frm.Width = maxWidth + 1 Next .Visible = Tr
here for a quick overview of the site Help Center Detailed answers to any questions you might have Meta Discuss the http://stackoverflow.com/questions/33850202/run-time-automation-error-2147417848-80010108 workings and policies of this site About Us Learn more about Stack Overflow the company Business Learn more about hiring developers or posting ads with us Stack Overflow Questions Jobs Documentation Tags Users Badges Ask Question x Dismiss Join the Stack Overflow Community Stack Overflow is a community of 4.7 million programmers, just like you, helping each other. automation error Join them; it only takes a minute: Sign up “Run-time automation error -2147417848 (80010108)” up vote 0 down vote favorite I use VBA excel to parse a long list of local .htm files. The problem is that I get an error even before the programm starts to parse the HTM-files. Error is: VBA code: Enum automation error the READYSTATE READYSTATE_UNINITIALIZED = 0 READYSTATE_LOADING = 1 READYSTATE_LOADED = 2 READYSTATE_INTERACTIVE = 3 READYSTATE_COMPLETE = 4 End Enum Sub ImportHTM() 'Dim ie As InternetExplorer Dim ie As InternetExplorerMedium Dim html As HTMLDocument Set ie = New InternetExplorerMedium 'Set ie = New InternetExplorer ie.Visible = False ie.navigate "d:\Cloud\Dropbox\3.htm" Do While ie.READYSTATE <> READYSTATE_COMPLETE Application.StatusBar = "Loading Profile..." 'PROBLEM SEEMS TO BE HERE SOMEWHERE! DoEvents Loop Set html = ie.document Set ie = Nothing Application.StatusBar = "" 'code code code --> which at this point isn't executed because the error occures before Do you have any ideas what could cause the problem? Do you have any solution suggestions? Also the command: ie.Visible = False doesn't seem to have any effect whatsoever since it opens the HTM-file in a new IE window. excel vba excel-vba share|improve this question edited Nov 22 '15 at 0:17 pnuts 33.7k63569 asked Nov 22 '15 at 0:14 user3185735 1068 add a comment| 1 Answer 1 active oldest votes up vote 0 down vote Move the status bar update out of the loop. Application.