javascript - IE 中的错误阻止我的 VBA 宏运行

Question

我有一个 VBA 宏，用于从过去几个月运行良好的网页中获取数据。今天早上它停止工作。问题是，当我单击按钮提交表单时，什么也没有发生。我试图在没有自动化的情况下手动单击按钮，但仍然没有任何反应。

我查了一下，发现了这个描述问题的旧线程: IE11-Only Submit Bug .

看来这是 IE 的已知问题，但这对我帮助不大。关于如何让我的宏再次运行有什么建议吗？我尝试阅读的每个教程都使用 IE 进行自动化，所以我被困在这里。

Answer 1

以下作品使用 Chrome 和 selenium basic .安装 selenium basic 后，您需要转到 VBE>Tools>References 并添加对 Selenium Type Library 的引用。然后，您已从等式中删除了 IE。 Selenium basic 支持许多其他浏览器，包括 FireFox 和 Opera。

Option Explicit
Public Sub EnterInfo()
    Dim d As WebDriver, ele As Object, t As Date
    Set d = New ChromeDriver
    Const URL = "https://mypost.israelpost.co.il/%D7%9E%D7%A2%D7%A7%D7%91-%D7%9E%D7%A9%D7%9C%D7%95%D7%97%D7%99%D7%9D"
    Const WAIT_TIME_SECS As Long = 10

    With d
        .Start "Chrome"
        .get URL

        With .FindElementById("ItemTraceForm")
            .FindElementById("ItemCode").SendKeys 55671234
            .FindElementById("btn-ItemCode").Click
            t = Timer
            Do
                DoEvents
                If Timer - t > WAIT_TIME_SECS Then Exit Do
                Set ele = .FindElementById("result", timeout:=3000)
            Loop While ele.Text = vbNullString
            Debug.Print ele.Text
        End With

        'Other code....
        Stop                                     '<=Delete me later
        .Quit
    End With
End Sub