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

Gaurish89

New Member
Joined
Apr 27, 2016
Messages
5
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:(
 

Some videos you may like

Excel Facts

Can you AutoAverage in Excel?
There is a drop-down next to the AutoSum symbol. Open the drop-down to choose AVERAGE, COUNT, MAX, or MIN

Gaurish89

New Member
Joined
Apr 27, 2016
Messages
5
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
 

Gaurish89

New Member
Joined
Apr 27, 2016
Messages
5
Must add refrences: Microsoft Shell Controls and Automation and Microsoft Internet Controls
 

shaialo

New Member
Joined
May 1, 2019
Messages
1
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
 

Watch MrExcel Video

Forum statistics

Threads
1,102,101
Messages
5,484,672
Members
407,460
Latest member
Fakxi

This Week's Hot Topics

  • Finding issue in If elseif else with For each Loop
    Finding issue in If elseif else with For each Loop I have tried this below code but i'm getting in Y column filled with W005. Colud you please...
  • MsgBox Error
    Hi Guys, I have the below error show up when i try and run my macro in File1 but works fine if i copy and paste the same code into file2. [ATTACH...
  • CELL FORMAT - IF CONDITION
    My Cell Format is [B]""0.00" Cr". [/B]But in the cell, it is showing 123.00 for editing. (123 is entry figure). (Data imported from other...
  • Show numbers nearly the same
    Is this possible. I have a number that can change very time eg 0.00001234 Then I have a lot of numbers 0.0000001, 0.0000002, 0.00000004...
  • Please i need your help to create formula
    I need a formula in cell B8 to do this >>if b1=1 then multiply ( cell b8) by 10% ,if b1=2 multiply by 20%,if=3 multiply by 30%. Thank you in...
  • Got error while adding column and filter
    Got error while adding column and filter In column Z has some like "Success" and "Error". I want to add column in AA if the Z cell value is...
Top