Wie zu verwenden getElementByID in VBA?

Also ich habe diesen test die erste fragt, E-Mail und Passwort für Facebook mit inputbox. Dann sollte es gehen (www.facebook.com), die auf Internet Explorer und loggen Sie sich mit Ihrer E-Mail und Passwort, aber es gibt mir eine Fehlermeldung (Laufzeitfehler '424' - Objekt erforderlich). Ich weiß nicht, was ist falsch an diesem code so, wenn Sie helfen konnte wäre ich froh.

Sub FB_Login()

Dim Site As Object
Set Site = CreateObject("InternetExplorer.application")
Dim FB_ID As String
Dim FB_PW As String
Dim URL As String

FB_ID = InputBox("Give me email for FB")
FB_PW = InputBox("Give me password for FB")
URL = "Facebook.com"

Site.navigate URL
While Site.busy
    Wend

Site.document.getElementById("email").Value = FB_ID 'Gives error
Site.document.getElementById("pass").Value = FB_PW  'Run-time error '424'
Site.document.getElementById("loginbutton").Click   'Object required

While Site.busy
    Wend
Site.Visible = True

End Sub

Danke an Euch alle für Eure Antworten im Voraus.

InformationsquelleAutor Rasmus Piirtola | 2015-11-26
  1. 2

    Vielleicht wird dies helfen?

    Option Explicit

Sub FB_Login()

    Dim Site As Object
    Set Site = CreateObject("InternetExplorer.application")
    Dim FB_ID As String
    Dim FB_PW As String
    Dim URL As String

    FB_ID = InputBox("Give me email for FB")
    FB_PW = InputBox("Give me password for FB")
    URL = "Facebook.com"

    Site.navigate URL
    While Site.busy
    Wend

    Dim oHTMLDoc As Object
    Set oHTMLDoc = Site.document

    oHTMLDoc.getElementById("email").Value = FB_ID    'Gives error
    oHTMLDoc.getElementById("pass").Value = FB_PW  'Run-time error '424'
    oHTMLDoc.getElementById("loginbutton").Click   'Object required

    While Site.busy
    Wend
    Site.Visible = True

End Sub
    • Das klappt perfekt, danke! @Fredlo2010
    InformationsquelleAutor
Schreibe einen Kommentar