VBA + IE 自动化 - 无法获取元素 ID

Question

我正在尝试从公司内部网站上抓取一些信息。我的代码能够启动一个新的 IE 窗口并成功导航到该页面，但是当我尝试将数据输入到一个框中时，我不断收到错误。

我根据阅读过的帖子切换了各种内容，但总是出现某种错误。

对于下面发布的代码，最后一行是这个错误：

Object Variable or With Block Not Set

这是我的代码：

Sub PerformancePull()

    Dim appIE As Object
    Dim sURL As String
    Dim StartDate As Variant
    Dim MyDoc As HTMLDocument

    Set appIE = New InternetExplorerMedium


    sURL = "website"

    With appIE
        .navigate sURL
        .Visible = True
    End With

    Do While appIE.readyState <> READYSTATE_COMPLETE
        DoEvents
    Loop

    Set MyDoc = appIE.document

    Set StartDate = MyDoc.getElementById("ct100_assoc_tbEndDate")
    StartDate.Value = "3/25/2020"

End Sub

编辑：

下面是一段 HTML 代码，用于标识我要捕获的 ID：

Answer 1

试试下面的

删除这个

Set StartDate = MyDoc.getElementById("ct100_assoc_tbEndDate")
StartDate.Value = "3/25/2020"

并用这个替换它

With MyDoc
    .getElementById("ct100_assoc_tbEndDate").Value = "3/25/2020"
End With

Answer 2

我尝试在我这边测试您的代码，它运行良好，没有任何错误。以下是测试结果。

我建议您尝试访问该元素并分配如下值以检查它是否有效。

appIE.document.getElementById("ct100_assoc_tbEndDate").Value = "3/25/2020"

如果问题仍然存在，请告诉我们您的测试结果，然后我们将尝试提供进一步的建议。