如何在VBA中使用getElementByID？

所以我有这个testing首先要求input框的Facebook的电子邮件和密码。 然后，它应该在Internet Explorer上（www.facebook.com），并用您的电子邮件和密码login，但它给了我错误（运行时错误'424'对象所需）。 我不知道这个代码有什么问题，所以如果你能帮助，我会很高兴。

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 

提前谢谢大家的回答。

Answer 1

也许这会帮助？

 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