Run-time Error

[exkpwd]

Hi!

I Can't get this code to work. When i run it i get a RUn-time error '-2147467259 (80004005)': Method 'Document' of object 'IWebBrowser2' failed.

I seems to be something wrong with the row "Set doc = IE.document"

I have Microsoft Internet Controls and Microsoft HTML Object Library in references.

Can somebody help?

See code below




Sub test()

Dim IE As Object
Dim doc As HTMLDocument
Set IE = CreateObject("InternetExplorer.Application")

IE.Visible = True
IE.Navigate "http://.........."

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

Set doc = IE.document

doc.getElementById("id-name").Value = "test"

End Sub

[Peter Swinkels]

Hello exkpwd, welcome to the forum!

You, posted the question in the wrong forum, this is the correct forum: https://www.vbforums.com/forumdispla...ce-Development. You should also have mentioned your project was made using VBA in Excel and that it depended on the Microsoft HTML Object Library. Also, next time put your code in between code tags. You can get these tags by clicking the "#" button in the toolbar above the message you're about to post on the forum. I tried running your code and on my computer it doesn't throw that error. I am using Microsoft Excel 2013 on Windows 10 with Internet Explorer 11. What versions are you using?

yours,
Peter Swinkels