Results 1 to 4 of 4

Thread: Run-time error '-2147467259(80004005)': Method 'Document' of object 'IWebBrowser2' failed
Thanks Thanks: 0 Likes Likes: 0

  1. #1
    New Member
    Join Date
    Apr 2016
    Posts
    5
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default Run-time error '-2147467259(80004005)': Method 'Document' of object 'IWebBrowser2' failed

    My VBA was working fine on my personal laptop but now its not working on any system.
    Everytime i am getting same error "Run-time error '-2147467259(80004005)': Method 'Document' of object 'IWebBrowser2' failed". When i click on Debug, it stops on following code line:

    IE.Document.getElementById("login-form-username").Value = EditUN.Text 'Enter your username here


    Below is the complete code:

    Private Sub StartJira_Click()


    'Open IE and hit JIRA Pearson Url
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Silent = True
    IE.Visible = True
    IE.navigate UrlSelect.Value

    JIRAUpdate.Hide

    Do Until IE.readyState = READYSTATE_COMPLETE
    Loop


    IE.Document.getElementById("login-form-username").Value = EditUN.Text 'Enter your username here
    IE.Document.getElementById("login-form-password").Value = EditPW.Text 'Enter your password here
    IE.Document.getElementById("login").Click 'Hit login button

    Do Until IE.readyState = READYSTATE_COMPLETE
    Loop
    Application.Wait (Now + TimeValue("0:00:30")) 'Wait



    Dim X As Integer, Y As Integer

    'Set numrows = number of rows of data.
    NumRows = Range("A2", Range("A2").End(xlDown)).Rows.Count
    Y = NumRows + 1
    'Select cell A2, *first line of data*.
    Range("A2").Select
    'Establish "For" loop to loop "numrows" number of times.
    For X = 2 To Y

    Set objCollection = IE.Document.getElementByTagName("input")
    i = 0
    While i < objCollection.Length
    If objCollection(i).Name = "searchString" Then

    'Set text for search
    objCollection(i).Value = Cells(X, 1).Value

    Else
    If objCollection(i).Type = "submit" And _
    objCollection(i).Name = "" Then

    ' "Search" button is found
    Set objElement = objCollection(i)

    End If
    End If
    i = i + 1
    Wend
    objElement.Click ' click button to search

    Application.Wait (Now + TimeValue("0:00:15")) 'Wait for 15 seconds

    IE.Document.getElementById("comment-issue").Click 'click button to add comment
    IE.Document.getElementById("comment").Value = Cells(X, 2).Value
    IE.Document.getElementById("issue-comment-add-submit").Click

    Set objElement = Nothing
    Set objCollection = Nothing ' Clear search string

    ActiveCell.Offset(1, 0).Select
    Next



    End Sub

    Please Help

  2. #2
    New Member
    Join Date
    Apr 2016
    Posts
    5
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default Re: Run-time error '-2147467259(80004005)': Method 'Document' of object 'IWebBrowser2' failed

    The reason was session with IE got disconnected. Used following snippet after navigating to desired URL, helped me to get rid of the error:
    Code:
    Dim sh
     Dim eachIE As Object
     
    Do
      Set sh = New Shell32.Shell
      For Each eachIE In sh.Windows
        If InStr(1, eachIE.LocationURL, UrlSelect.Value) Then
          Set IE = eachIE
          'IE.Visible = False  'This is here because in some environments, the new process defaults to Visible.
          Exit Do
          End If
        Next eachIE
      Loop
    Set eachIE = Nothing
    Set sh = Nothing

  3. #3
    New Member
    Join Date
    Apr 2016
    Posts
    5
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default Re: Run-time error '-2147467259(80004005)': Method 'Document' of object 'IWebBrowser2' failed

    Must add refrences: Microsoft Shell Controls and Automation and Microsoft Internet Controls

  4. #4
    New Member
    Join Date
    May 2019
    Posts
    1
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Unhappy Re: Run-time error '-2147467259(80004005)': Method 'Document' of object 'IWebBrowser2' failed

    Quote Originally Posted by Gaurish89 View Post
    Must add refrences: Microsoft Shell Controls and Automation and Microsoft Internet Controls
    This didn't help, as I had both Microsoft Shell Controls and Automation and Microsoft Internet Controls marked already

Some videos you may like

User Tag List

Tags for this Thread

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •