Laufzeitfehler '424': Objekt erforderlich IE.Document.GetElementById Textfeld in iframe

Question

Ich habe Probleme beim Laden von Text in ein Suchfeld in IE mit IE.document.getElementbyID Ich bin der Code, den ich bisher verwende. Ich bin mir sicher, dass mir hier etwas fehlt. Dies ist ein Update des iframe-Code Ich bin hier einschließlich

<iframe tabindex="-1" id="WorkdayApp" src="javascript:""" style="left: -1000px; top: -1000px; width: 0px; height: 0px; border-top-color: currentColor; border-right-color: currentColor; border-bottom-color: currentColor; border-left-color: currentColor; border-top-width: medium; border-right-width: medium; border-bottom-width: medium; border-left-width: medium; border-top-style: none; border-right-style: none; border-bottom-style: none; border-left-style: none; position: absolute;"> 

<input class="gwt-TextBox GPNS02MDDGJ" aria-label="Expanded, multiSelectPrompt, 0 items selected, Use up and down arrows to select. or Type in a search" type="text" placeholder="search" data-automation-id="searchBox"/> 

"

Sub workdayrep() 

'******************************* 
Dim iframe As Object 
Dim textbox As Object 
'******************************* 
Dim IE As InternetExplorer 
Set IE = New InternetExplorer 
Set iframe = IE.document.getElementById("WorkdayApp") 
Set textbox = iframe.contentWindow.document.getElementById("searchBox") 
IE.Visible = True 


IE.navigate "https://wd.workday.com/142.htmld" 

Application.StatusBar = "Page Loading" 

'Do While IE.Busy 
' Application.Wait DateAdd("s", 1, Now) 
' Loop 
Application.Wait Now + TimeValue("00:00:10") 
textbox.Value = "TEST" 

' Application.StatusBar = "Check" 
End Sub 

Answer 1

Das Objekt Sie versuchen, sich zu fangen keine ID Attribut haben, hat es eine "data-automation-id" Attribut.

<input class="gwt-TextBox GPNS02MDDGJ" aria-label="Expanded, multiSelectPrompt, 0 items selected, Use up and down arrows to select. or Type in a search" type="text" placeholder="search" data-automation-id="searchBox"/> 

Als solche getElementByID wird immer Nothing zurückkehren (es sei denn, es mit dieser ID ein anderes Element, das es offensichtlich ly ist nicht in diesem Fall!). Sie benötigen eine Brute-Force-Schleife über getElementsByClassName("gwt-TextBox GPNS02MDDGJ"), z. so etwas wie dieses (ungetestet):

Dim itm 
For each itm in iFrame.contentWindow.document.getElementsByClassName("gwt-TextBox GPNS02MDDGJ") 
    If itm.getAttribute("data-automation-id", 2) = "searchBox" Then 
     itm.setAttribte("data-automation-id", "test") 
     Exit For 
    End If 
Next