Comments on: Web automation using Internet Explorer

By: Tomasz Płociński

Tomasz Płociński — Thu, 05 Dec 2024 08:07:32 +0000

In reply to Dlyanda.

What do You mean by ‘doesn’t work for me’ – where is the error? 🙂

By: Dlyanda

Dlyanda — Fri, 11 Oct 2024 09:53:51 +0000

I was checking 1 more time and found that your code works on another site but doesn’t work on our intranet site. I can’t understand it

By: Dlyanda

Dlyanda — Fri, 11 Oct 2024 06:50:24 +0000

Hello
I was trying to use your code and many other samples on the internet but it doesn’t work for me
Sub automateIE()

Dim IE As InternetExplorer
Dim doc As HTMLDocument
Dim URL As String

Set IE = New InternetExplorer

Let URL = “http://192.168.1.151/base/index.php”

IE.Visible = True
IE.navigate URL

‘Do While IE.readyState READYSTATE_COMPLETE Or IE.Busy: DoEvents: Loop

Do While IE.Busy
Application.Wait DateAdd(“s”, 1, Now)
Loop

Set doc = IE.document ===ERROR
doc.getElementsByName(“login[name]”).Item(0).Value = “ACB_Purchase”
doc.getElementsByName(“login[pass]”).Item(0).Value = “12345”
‘ doc.getElementsByClassName(“search-submit”).Item(0).Click

End Sub

By: Tomasz Płociński

Tomasz Płociński — Wed, 06 Dec 2023 13:18:14 +0000

In reply to Bhashmang. Please follow the code from the article and give me a sign then :)

By: Bhashmang

Bhashmang — Thu, 23 Nov 2023 02:50:37 +0000

Sir I am getting following error on execution of code:
Run-time error ‘-2147467259 (80004005)
Method ‘Document’ of object ‘IWebBrowser2’ failed

Code:
Dim ie as Object
Dim ht as HTMLDocument
Set ie= CreateObject(“InternetExplorer.Application”)
ie.visible= True
ie.navigate “‘any website name”
Do While ie.Busy
Application.Wait DateAdd(“s”,1,now)
Loop
Set ht=ie.document //error is coming on this line//
End sub

It would be great if you can help

By: Tomasz Płociński

Tomasz Płociński — Tue, 22 Feb 2022 18:55:06 +0000

In reply to Nam. Have You tried to inspect the website, where the dropdown is placed?