提交点击后阅读第二页的元素

Question

我正在使用 excel 单元格数据进行网络表单填充，这里的问题是，在使用元素 ID 填充第一页中的文本后，当它点击提交时，它会加载一个新的 IE。

现在我无法使用元素 ID 等填充文本，因为它的 (VBA) 没有识别它或没有考虑它。

IE 页面在这里正常加载没有问题。

Sub Test1()
    Dim IE As Object
    Dim doc As HTMLDocument
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    IE.navigate "https://xyzfrmTarget=New&Text_ident=002719&frmOption=CREATE"
    Do While IE.Busy
        Application.Wait DateAdd("s", 1, Now)
    Loop
    Set doc = IE.document
    'IE.document.getElementById().Value="test"
    'doc.getElementById("ui-new_widget-1_new_company_12").Value = ThisWorkbook.Sheets("Data").Range("A2").Value
    doc.getElementById("ui-new_widget-1_monitor_12").Value = ThisWorkbook.Sheets("Data").Range("A2").Value
    doc.getElementById("new_date").Value = "2019-01-19"
    'ThisWorkbook.Sheets("Data").Range("c2").Value
    doc.getElementById("new_no_mail").Click
    IE.document.forms(0).submit
End Sub

它使用来自 excel 的文本数据提交第一页，但加载的第二页出现问题

Answer 1

在导航和.click 之后尝试使用适当的等待，然后处理.document。这应该会在.click 之后更新为新内容

Option Explicit
Public Sub PerformActions()
    Dim IE As InternetExplorer
    Set IE = New InternetExplorer

    With IE
        .Visible = True
        .Navigate2 "https://xyzfrmTarget=New&Text_ident=002719&frmOption=CREATE"

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

        .document.getElementById("ui-new_widget-1_monitor_12").Value = ThisWorkbook.Sheets("Data").Range("A2").Value
        .document.getElementById("new_date").Value = "2019-01-19"
        .document.getElementById("new_no_mail").Click

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

         '.document ''< do whatever references off .document here
         'other code
         '.quit
    End With
End Sub