Excel VBA 在 Web 中自动输入数据

Question

 Sub Godmode()

    Dim IE As Object
    Set IE = CreateObject("InternetExplorer.Application")

    IE.Visible = True
    IE.navigate "http://charterweb.santanderuk.gs.corp/CharterServiceChain/default.aspx"

    Do While IE.Busy
        Application.Wait DateAdd("s", 1, Now)
    Loop

    IE.document.getElementById("M_E_ctlPartField208_V").Value = "test"


End Sub

我总是收到一条错误消息； 对象 iwebbrowser2 的方法文档失败

Answer 1

您需要获取元素 ID，然后作为第二个命令为该元素分配一个值。

elementIwantToChange = IE.document.getElementById("M_E_ctlPartField208_V")

elementIwantToChange.Value = "test"

您还应该测试返回的元素 ID 是否为“null”