Run-time error - 2147417848 80010108

run-time error - 2147417848 80010108

Error Message Runtime error -2147417848 (80010108) automation error - the object invoked has disconnected from its clients appears when trying. support.trustwave.com › print10150. kb.palisade.com ›.

Run-time error - 2147417848 80010108 - think, that

Run-time error -2147417848 (80010108) Method "Show" of object failed

  • 01-11-2021, 04:10 PM#1

    brockbaker27 is offline
    Registered User

    Run-time error -2147417848 (80010108) Method "Show" of object failed

    Hello,

    I have attached my vba excel program. I am having an issue with an established program that will not load a dialog box. I believe thats what the error is. The program has been working in years and nothing has changed. Its failing on 2 different machines.

    Any solutions to solve this?

    The error is happening here:


    Code.png

    Thanks,
    Brock

    Last edited by brockbaker27; 01-11-2021 at 04:32 PM.


  • 01-11-2021, 05:16 PM#2


  • 01-11-2021, 05:20 PM#3

    brockbaker27 is offline
    Registered User

    Re: Run-time error -2147417848 (80010108) Method "Show" of object failed

    Oh wow, maybe this was due to an office update then. Yes that is what was supposed to happen. Thats great you figured it out. What did you have to change to fix it?

    Thank you so much!

  • 01-11-2021, 06:15 PM#4


  • 01-11-2021, 07:13 PM#5


  • 01-12-2021, 08:33 AM#6

    AdrianStern is offline
    Registered User

    Re: Run-time error -2147417848 (80010108) Method "Show" of object failed

    I am having the same problem today. Excel updated itself a couple of hours ago and I can't make it go back to the old version.
    My code is incredibly simple and has been running for 20 years I think

    DialogSheets("PostingList").Show

    That's all - and I get Method 'show' of object 'DialogSheet' failed - and then I can't even save the workbook but have to go to transaction manager and end the application!


  • 01-12-2021, 09:02 AM#7


  • 01-12-2021, 09:16 AM#8

    AdrianStern is offline
    Registered User

    Re: Run-time error -2147417848 (80010108) Method "Show" of object failed

    I wasn't asking a question. Just adding a comment that this happened to me today
    It seems that suddenly DialogSheets are no longer supported from this new version of excel with no warning
    It looks as though I have to replace it with a UserForm which I have started on. I suppose like in old VB.
    Damn nuisance.
    MS are a damn nuisance - always were too big for their boots. Like the mystery of what Outlook is up to all the time when it should be doing nothing at all it can draw
    over 65% cpu. Not a bug they say. My cpu is too small they say. Previous versions worked normally
    Ah well. Have to sit and code and debug for a few hours


  • 01-12-2021, 11:18 AM#9

    brockbaker27 is offline
    Registered User

    Re: Run-time error -2147417848 (80010108) Method "Show" of object failed

    Hello porucha vevrku,

    I am not very good at updating old programs with userforms. I am getting an error at the .Edit_PN.Text = default. Could you see what I am doing wrong?


  • 01-12-2021, 11:22 AM#10


  • 01-12-2021, 11:23 AM#11


  • 01-12-2021, 11:27 AM#12


  • 01-12-2021, 11:29 AM#13


  • 01-12-2021, 11:40 AM#14


  • 01-13-2021, 11:48 AM#15


  • 01-14-2021, 11:03 AM#16

    brockbaker27 is offline
    Registered User

    Re: Run-time error -2147417848 (80010108) Method "Show" of object failed

    We cannot wait for microsoft to come out with a fix so I am changing our code to userforms, there
    are quite a few in the program.

    Last edited by brockbaker27; 01-15-2021 at 01:33 PM.


  • Webtrends Analysis Suite 7.0x
    Webtrends Enterprise Suite 5.x
    Webtrends Enterprise Suite for Domino 5.x
    Webtrends Log Analyzer 7.0x
    Webtrends Log Analyzer 6.x
    Webtrends Professional Suite 5.x

    Last modified: 1/1/2011

    Introduction:
    The following error message displays:

    Run-time error -2147417848 (80010108) Automation error.
    The object invoked has disconnected from its clients

    This error occurs on Microsoft Windows 95/98/2000 machines running Microsoft Word 2000 with full Microsoft Office installations.

    The issue is believed to result from international language support not being installed in the Microsoft Office installation.

    Solution:
    Steps to fix the problem are detailed below:

    1. Go to Start > Settings > Control Panel and open Add/Remove programs.

    2. Select Microsoft Office 2000 SR1 or Office 2000 Premium and click the Add/Remove button. The Microsoft Office installer displays.

    3. Select Add or Remove Feature.

    4. Expand the tree to display Office Tools > International Support and select the non-English language required for resolution.

    5. Click the Update Now button.

    6. Close everything once completed.

    7. Restart the Webtrends application.

    Read these next...

    Hi, I have a small VBA Excel tool that automates a pricing process. The tool itself works fine. While trying to hide various calculation sheets from the user (they notoriously fiddle with anything they can) I used the xlSheetVeryHidden in the properties window of the Visual Basic Editor for each of the sheets to be hidden. When the workbook is started a User Form is displayed for the user to select the product to be priced and then select a command button to start that products price calculation entry form. When the command button is clicked the RunTime error 2147417848 (80010108) stops the entire program and exits Excel. I have narrowed the problem down to this property setting and it is the problem. The odd issue that I am encountering is: When I start the workbook, if I open the VBA Editor and then immediately close it before clicking the first command button to start the VBA tool, everything works fine. Does anyone have an explanation? Any workaround suggestion is welcome. Thanks, Bob
    • Please attach a part of code that generate error.
      Regards
      Andrija Vrcan
    • Andrija, that is just my problem. It does not appear to be part of the code. The issue comes when the properties of a sheet in the VBA editor is set to "2 - xlSheetVeryHidden".

    • Hi,
      I have several workbooks that refer to data in - xlSheetVeryHidden sheets and do not have any issues, if you are using 2003 or prior I would step through the code (F8) to see at what point it crashes.
      If you are using 2007 you will have to remove "control As IRibbonControl" from the parenthesis before stepping through the sub (unless somebody knows another way if so please advise as it is a tad labourious).
      As Andrija says it would be useful to see the code if you cannot debug using the above method.

      From: kerrob1 via vb-vba-l [mailto:[email protected]]
      Sent: 09 June 2010 15:09
      To: pbsol
      Subject: RE:[vb-vba-l] Runtime Error 2147417848 (80010108)

      Posted by kerrob1
      on Jun 9 at 10:27 AM Mark as helpful


      Andrija, that is just my problem. It does not appear to be part of the code. The issue comes when the properties of a sheet in the VBA editor is set to "2 - xlSheetVeryHidden".

    • Bob, obviously somewhere 'violation'.
      I guss that in one point the 'Hidden' property of all sheets are set on
      TRUE, which is not allowed (always at least one sheet must be visible)..
      Further, you wrote 'When the command button is clicked the RunTime error
      2147417848 (80010108) stops the entire program and exits Excel.'.
      It means that clicking on CommandButton generates Error(?). At this point
      nothing else falls on my mind.
      Best Regards
      Andrija Vrcan





      "kerrob1 via vb-vba-l"
    • Can we see the code - (a) when the CommandButton is pressed and (b) when the form returns to the calling software (your VB Module)? My feeling is that this is raising an error state that is not being found in the recognised list - have you tried using an error handler (i.e. "On Error Goto XX" command, with some code at XX to tell you what the error is)?

    • Andrija, (and others)thank you for your comments. I did not give much to work with as I was at a loss. The code is fine, but it is understandable that one would doubt that.

      As it turns out, I searched for solutions with other key words and found the answer. For some reason the file "MSCAL.OCX" was deleted from the System32 folder. It appears I closed something at the wrong time leading to the deletion. Once I copied the file from the MS Office folder to the System32 folder the problem was solved. In some of the threads I read, their were reports of spyware removal programs and the like deletig the file. Not sure how it happened, but the problem is now solved.


      Thanks,
      Bob

    • Showing End Users How The Sausage Is Made

      Showing End Users How The Sausage Is Made

      Best Practices & General IT

      Basic scenario is this1 - End user submits issue via email2 - IT investigates and proves issue is with external vendor3 - IT emails vendor4 - Vendor emails back5 - repeat 3+4 until issue is fixed6 - IT emails end user to say it's fixed, or details how to ...

    • MS is finally introducing Server licensing by Virtual Core

      MS is finally introducing Server licensing by Virtual Core

      Software

      Details are still a bit thin, but they say it will be starting on October 1st.With the virtual core licensing option, customers can elect to license Windows Server by the number of virtual cores they are using in virtual machines, making Windows Server ea...

    • Warning for players of Genshin Impact on PC......

      Warning for players of Genshin Impact on PC......

      Security

      I personally have never played this but I know people who do.  I wonder how long until it's fixed.  Would you uninstall a game because of a possible security issue?https://hackaday.com/2022/08/29/genshin-security-impact/

    • Spark! Pro Series - 30 August 2022

      Spark! Pro Series - 30 August 2022

      Spiceworks Originals

      Good morning and welcome to the penultimate Spark! of August 2022. The year seems to be just flying by. Here in Upstate New York the Great New York State Fair is underway, a sure sign that the summer is almost over. If ...

    • Snap! Nitrokod malware, backups, Zen 4 CPUs, Artemis 1, Gamescom wrap-up, etc.

      Snap! Nitrokod malware, backups, Zen 4 CPUs, Artemis 1, Gamescom wrap-up, etc.

      Spiceworks Originals

      Your daily dose of tech news, in brief. There were at least a handful of big events in the summer of 1969, including the Apollo 11 landing. Yet another event occurred that summer, one that the public hardly noticed, but it has proven to have a last...

    It would help to have a little more information.  What is the nature of your macro.  What is it trying to do?  What is happening when you get this error?  Have you gone into your VBA code and stepped through one line at a time to try to find where the error is happening?  Do you have any ActiveX components in your Excel file?

    If this post is helpful or answers the question, please mark it so.

    2 people found this reply helpful

    ·

    Was this reply helpful?

    Sorry this didn't help.

    Great! Thanks for your feedback.

    How satisfied are you with this reply?

    Thanks for your feedback, it helps us improve the site.

    How satisfied are you with this reply?

    Thanks for your feedback.

    When I step through the code, the error doesn't happen. The error occurs at the line below

    Call copyFormulaDown

     

    Sub copyFormulaDown()
    Dim ASlastRow As Long

    ASlastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    Range("D2:K2").Copy
    Range("D3:D" & ASlastRow).Select
    Selection.PasteSpecial Paste:=xlFormulas

    Range("O2").Copy
    Range("O3:O" & ASlastRow).Select
    Selection.PasteSpecial Paste:=xlFormulas
    End Sub

    Was this reply helpful?

    Sorry this didn't help.

    Great! Thanks for your feedback.

    How satisfied are you with this reply?

    Thanks for your feedback, it helps us improve the site.

    How satisfied are you with this reply?

    Thanks for your feedback.

    In the Visual Basic Editor (VBE), go to the Tools menu, selection Options.  On the General tab, select "Break on All Errors".  Then try going through your code again.  Let me know if that provides you any more information.

     

    IMPORTANT:  When you're done, make sure you set the Option back to "Break on Unhandled Errors"

    If this post is helpful or answers the question, please mark it so.

    Was this reply helpful?

    Sorry this didn't help.

    Great! Thanks for your feedback.

    How satisfied are you with this reply?

    Thanks for your feedback, it helps us improve the site.

    How satisfied are you with this reply?

    Thanks for your feedback.

    I agree with EJGUN, it would be helpful to know what your macro (and workbook) are designed to do. Without that information, we can only provide wild guesses.

    - Is there any reason to think that an object (graph, drop-down box, or something else) might be selected when the macro runs?

    - Is there any reason to think that a chart or other object (anything other than a worksheet) might be selected?

    - does the target range have any types of protection (cells locked, etc)?

    - Are you using HPageBreaks.Add in your code?

    - Are you using an ADO connection?

    - Are you using a userform in your workbook?

    The error text in Excel is not always descriptive, but are you linking to an external database or report? When your code runs at full speed, are you trying to do something incompatible while the connection is still open?

    1 person found this reply helpful

    ·

    Was this reply helpful?

    Sorry this didn't help.

    Great! Thanks for your feedback.

    How satisfied are you with this reply?

    Thanks for your feedback, it helps us improve the site.

    How satisfied are you with this reply?

    Thanks for your feedback.

    - Are you using a userform in your workbook?

    Yes I have a userform in the workbook. That is the only question that applies here. And the error occurs on the is line of code:

    Call copyFormulaDown

     

    Sub copyFormulaDown()
    Dim ASlastRow As Long

    ASlastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    Range("D2:K2").Copy
    Range("D3:D" & ASlastRow).Select
    Selection.PasteSpecial Paste:=xlFormulas

    Range("O2").Copy
    Range("O3:O" & ASlastRow).Select
    Selection.PasteSpecial Paste:=xlFormulas
    End Sub

    Was this reply helpful?

    Sorry this didn't help.

    Great! Thanks for your feedback.

    How satisfied are you with this reply?

    Thanks for your feedback, it helps us improve the site.

    How satisfied are you with this reply?

    Thanks for your feedback.

    If the error is occurring on

    Call copyFormulaDown

    Then it never actually runs that sub, and therefore I would be looking to the lines before the call to try to understand what might be causing the problem. Rather than posing that sub, it might be helpful if you post the sub containing the call (or at least relevant portions of it, if it is too lengthy).

    Are you attempting to run this code while your userform is still open/visible?

    For troubleshooting, just before your call statement, check the Activesheet with something like

    msgbox Activesheet.name

    and see whether it returns the expected result.

    Also, just for the sake of troubleshooting- this is only 8 lines of code, so consider pasting them into your main sub instead of using the call, and see if it breaks on a different line.

    HTH,

    Keith

     

     

    1 person found this reply helpful

    ·

    Was this reply helpful?

    Sorry this didn't help.

    Great! Thanks for your feedback.

    How satisfied are you with this reply?

    Thanks for your feedback, it helps us improve the site.

    How satisfied are you with this reply?

    Thanks for your feedback.

     

     

    ")(intShowLoop) objM.strFileReplace argFile, ("<AVAIL" & intFilms & "_" & intShows & ">"), Split(parrData(4, intFilmLoop), " " & strStatus parrData(5, intLoop) = parrData(5, intLoop) + 1 Loop End If Next End Function