Html 网页不接受从vba发送的文本 子登录（） Dim objie作为InternetExplorer Set objie=新的InternetExplorer objie.Visible=True objie.navigate“https://kite.zerodha.com/" Do While objie.Busy=True或objie.readyState 4:DoEvents:Loop objie.document.getElementsByTagName（“输入”）（0.Value=“abcdefgh” objie.document.getElementsByTagName（“输入”）（1.Value=“abcdefgh” objie.document.getElementsByTagName（“按钮”）（0）。单击 端接头

我尝试自动化的网站不接受vba发送的文本。所以我尝试了sendkeys方法，它成功了。但我想在后台运行Internet explorer。有什么方法可以做到这一点。

在这种情况下我会使用。它要可靠得多。安装后，VBE>工具>引用，将引用添加到selenium类型库

Sub login()

Dim objie As InternetExplorer

    Set objie = New InternetExplorer

    objie.Visible = True

    objie.navigate "https://kite.zerodha.com/"

    Do While objie.Busy = True Or objie.readyState <> 4: DoEvents: Loop
    objie.document.getElementsByTagName("input")(0).Value = "abcdefgh"

    objie.document.getElementsByTagName("input")(1).Value = "abcdefgh"
    objie.document.getElementsByTagName("button")(0).Click


End Sub

---

真奇怪。我可以用F8单步执行所有三个登录操作。用户Id和密码显示在网页上。但按下登录按钮后，我得到了错误“用户id应至少为六个字符”，这不是我用键盘手动键入时的情况。

Option Explicit
Public Sub EnterInfo()
    Dim d As WebDriver
    Set d = New ChromeDriver
    Const URL = "https://kite.zerodha.com/"
    With d
        .AddArgument "--headless"
        .Start "Chrome"
        .get URL
        .FindElementByCss("[type=text]").SendKeys "abcdef"
        .FindElementByCss("[type=password]").SendKeys "123456"
        .FindElementByCss("[type=submit]").Click
        Stop '<== Delete me later
        '.Quit '<==Uncomment me later
    End With
End Sub

Option Explicit
Sub login()
    Dim objie As InternetExplorer
    Set objie = New InternetExplorer
    objie.Visible = False
    objie.navigate "https://kite.zerodha.com/"

    Do While objie.Busy = True Or objie.readyState <> 4: DoEvents: Loop

    With objie.document
        .querySelector("[type=text]").Focus
        .querySelector("[type=text]").innerText = "abcdef"
        .querySelector("[type=password]").Focus
        .querySelector("[type=password]").innerText = "123456"
        .querySelector("[type=submit]").Click
    End With
End Sub