运行-time error '424' getElementById

Question

我正在尝试使需要在网站文本框中输入一些数据的过程自动化。我重复使用了一个适用于不同站点的代码，但是当我尝试使用 GetElementByID

输入值时，我得到了一个 "runtime error 424: object required"

这是 link 站点：
http://www.e-post.co.il/?page_id=723

（我有兴趣更新 upper 文本框）

和代码：

Sub main()
Dim objIE As InternetExplorer
Set objIE = New InternetExplorer
objIE.Visible = True
objIE.navigate "http://www.e-post.co.il/?page_id=723"
Do While objIE.Busy = True Or objIE.readyState <> 4: DoEvents: Loop
objIE.Document.getElementById("num_with_letters").Value = "IP1210665"   
End Sub

Answer 1

我不敢相信我当时没有发现这一点。您的元素在 iframe 中。您可以直接使用 iframe src url

Public Sub EnterInfo()
    Dim ie As InternetExplorer
    Set ie = New InternetExplorer
    With ie
        .Visible = True
        .navigate "http://run.hfd.co.il/run_public3/"

        While .Busy Or .readyState < 4: DoEvents: Wend

        .document.getElementById("num_with_letters").Value = "IP1210665"

        Stop      
   End With
End Sub

如果您想使用原始 url，您需要按如下方式导航 iframe：

.document.getElementsByTagName("iframe")(0).contentDocument.getElementById("btn_eur")

运行-time error '424' getElementById

Run-time error '424' getElementById

vba

getelementbyid

web-scraping