尝试使用excel VBA访问网站上的数据，我需要能够单击按钮

我正在尝试使用VBA从excel访问web上的数据。当我试图转到该网站时，它被重定向到另一个网站，该网站是一个横幅警告，并且有一个大按钮，上面写着“OK”，我需要VBA自动按下。使用msgbox时，代码会暂停，因为用户需要输入安全卡许可证，安全卡许可证会自动将您带到站点，然后当您单击msgbox上的“确定”时，代码会再次启动，就像它从重定向的网站（横幅警告站点）启动一样

这是我的代码。我可以在msgbox函数完成之前将所有内容都调出，之后的所有内容都不起作用。任何帮助都会很棒

Sub GetTable()
Dim ieApp As InternetExplorer
Dim ieDoc As Object
Dim ieTable As Object
Dim clip As DataObject
Set ieApp = New InternetExplorer
ieApp.Visible = True
ieApp.Navigate "***Website URL***"
MsgBox "Click OK After you fill out Card Security Certificate!"
Set ieDoc = ieApp.Document

Set elements = ieDoc.getElementsByTagName("input")

For Each element In elements
    If element.Name = "OK" Then
        element.Click
    End If
Next element

Set elements = Nothing

---

所以我发现问题是因为我没有使用internetexplorermedium。然后，我只是使用就绪状态，而不是使用消息框作为暂停按钮，这使得程序更加高效。感谢所有帮助

如果可能，请显示相关HTML并共享URL。不工作意味着什么？您是否选择了正确的元素？你试过element.focus:element.Click吗？我说的不工作是指它在msgbox弹出后没有读取任何内容，并且在调试器上弹出后的第一个代码没有被读取。出于安全原因，我无法共享网站或HTML。如果您没有它，我很抱歉。我可能只发送站点按钮部分的HTML。请尝试将焦点设置为按钮，请参阅此提示。。