Wsrtjtyk

Ok so I have my excel VBA macro longing into my site and from the landing I direct it to a search page but I'm getting This Error after IE gets to the search page. I thought resetting the objcollection on the new page would work but I don't know how to set focus or select the new page or what... I new to using VBA with IE for automation sorry if it's super obvious.

Sub GoToWebsiteTest2()

Dim appIE As InternetExplorerMedium

Dim objElement As Object

Dim objCollection As Object



Set appIE = New InternetExplorerMedium

sURL = "https://example.login.aspx"

With appIE

    .Navigate sURL

    .Visible = True

End With



Do While appIE.Busy Or appIE.ReadyState <> 4

    DoEvents

Loop



Set objCollection = appIE.Document.getElementsByTagName



'Set appIE = Nothing

appIE.Document.getElementById("txtUsername").Value = "user"

appIE.Document.getElementById("txtPassword").Value = "Pass"

appIE.Document.getElementById("btnLogin").Click



Do While appIE.Busy Or appIE.ReadyState <> 4

    DoEvents

Loop



appIE.Navigate "https://example.Search.aspx"



Do While appIE.Busy Or appIE.ReadyState <> 4

    DoEvents

Loop



Set objCollection = appIE.Document.getElementsByTagName

*appIE.Document.getElementById("txtNum").Value = "0000000"*

appIE.Document.getElementById("btnSearch").Click

End Sub

I changed it to this and it worked great the elements were in an iframe

Sub GoToWebsiteTest2()

Dim appIE As InternetExplorerMedium

Dim objElement As Object

Dim objCollection As Object

Dim iframeDoc As MSHTML.HTMLDocument

Dim doc As MSHTML.HTMLDocument



Set appIE = New InternetExplorerMedium

sURL = "https://example.login.aspx"

With appIE

    .Navigate sURL

    .Visible = True

End With



Do While appIE.Busy Or appIE.ReadyState <> 4

    DoEvents

Loop



Set objCollection = appIE.Document.getElementsByTagName



'Set appIE = Nothing

appIE.Document.getElementById("txtUsername").Value = "user"

appIE.Document.getElementById("txtPassword").Value = "Pass"

appIE.Document.getElementById("btnLogin").Click



Do While appIE.Busy Or appIE.ReadyState <> 4

    DoEvents

Loop



appIE.Navigate "https://example.Search.aspx"



Do While appIE.Busy Or appIE.ReadyState <> 4

    DoEvents

Loop



Set doc = appIE.Document

Set iframeDoc = doc.frames("EncJump").Document

iframeDoc.getElementById("txtNum").Value = "0000000"

iframeDoc.getElementById("btnSearch").Click

End Sub

Since you are unable to post the HTML, this is more speculation than anything. There are 2 likely issues:

1. Your issue is related to an iframe - which if this is the case there's not much we can do without seeing the HTML.


2. Your issue is that your element hasn't fully loaded (yes, happens even if readystate = complete).

So Change the line giving you issues to:

dim startTime as single

starttime = timer



on error resume next

do while appIE.Document.getElementById("txtNum") is nothing

    if timer - starttime > 10 then       'Change 10 to # of max seconds to wait

        msgbox "Element didn't load! Check internet connection, aborting"

        exit sub

    else

        doevents

    end if

loop

on error goto 0

appIE.Document.getElementById("txtNum").Value = "0000000"

To build on point # 1 - You can think of an iFrame as it's own document. Usually you will see a the tagname <iframe>. You will need to use that object's document (I usually set it equal to iframe.contentdocument) and then proceed as normal.