VBA - IE GetElementByID funktioniert nicht

Ich habe einige Schwierigkeiten mit der Eingabe eines Textes in das Suchfeld, wenn Sie nach ich, was ich denke, werden die correcet ID-tag ist. Ich habe die ID in den Quellcode der Seite. Ich habe dies getan, bevor Sie mit anderen websites. Kann mir bitte jemand helfen? Gibt es einen anderen Weg, dies zu tun?

Sub FileUpload()

Dim IEexp as Object
IEexp.visible = True
IEexp.Navigate ("www.example.com")

'this is where the problem
IEexp.Document.GetElementByID("step1_id_bean_newSupportingDoc_description").Value _ 
= "monthly update"

End Sub

Bekomme ich ein "Automatisierungsfehler Das aufgerufene Objekt wurde von den clients getrennt"

Source Code, wo ich zog die ID aus:

<td class="Label">Description</td>
  <td class="Data"><input type="text" name="bean.newSupportingDoc.description" size="60" maxlength="250" value="" id="step1_id_bean_newSupportingDoc_description" class="NoBorder"/>
</td>
Warten Sie auf das Dokument zu laden, bevor Sie versuchen, Zugriff auf das input-element?
ich habe es lokal und ich wartete auf die Seite load-Ereignis zu passieren, und ich bekomme iwebbrowser2-Fehler
Ja, ich habe es im Pause-Modus, so dass ich warten, bis die Seite vollständig geladen und ich bekomme immer noch diesen Fehler.

InformationsquelleAutor Andy Caster | 2013-03-06

  1. 1

    Wenn Sie Set IEexp = New InternetExplorerMedium Sie nicht haben, ändern Sie die Einstellungen in Ihrem Internet-Optionen. Es wird automatisch instanziiert das IE-Objekt mit Mittlerer Integrität der Anwendung Einstellungen.

    InformationsquelleAutor cyphi1

  2. 0

    Können Sie versuchen, 

    Do Until IEexp.readyState = 4
DoEvents
Loop



IEexp.Document.getElementById("username").Value = "Monthly update"


IEexp.Document.getElementById("password").Value = FilePth

    InformationsquelleAutor user1902540

  3. 0

    Code funktioniert. Was über 'protection mode'? Finden Sie in diesem Artikel: http://www.sevenforums.com/tutorials/63141-internet-explorer-protected-mode-turn-off.html.
    Wenn Ihr IE-browser läuft in den Schutz-Modus, dann versuchen Sie, es zu deaktivieren, und führen Sie den code erneut ein.

    ' Add References:
' - Microsoft HTML Object Library
' - Microsoft Internet Controls

Sub FileUpload()

    Dim IEexp As InternetExplorer
    Set IEexp = New InternetExplorer
    IEexp.Visible = True
    IEexp.navigate "www.example.com"

    Do While IEexp.readyState <> 4: DoEvents: Loop

    Dim inputElement As HTMLInputElement
    Set inputElement = IEexp.Document.getElementById("step1_id_bean_newSupportingDoc_description")

    If (Not inputElement Is Nothing) Then
        inputElement.Value = "monthly update"
    Else
        MsgBox "Input element not found on web page."
    End If

    IEexp.Quit
    Set IEexp = Nothing
End Sub

    InformationsquelleAutor dee

Schreibe einen Kommentar