Question

我正在尝试使用VBA从excel访问Web上的数据。当我尝试访问该网站时，它将重定向到另一个网站，这是一个标语警告，并且有一个大按钮显示“确定”，我需要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

Answer 1

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

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

1 个答案: