.Click 动作不做任何事情 - IE 模拟

Question

我正在尝试通过 IE 应用程序模拟与 Google 的交互，并通过 DOM 获得我需要的类并且一切正常，逐步通过代码，除了 .Click 操作不会导致崩溃但它不会执行任何操作（页面无法导航）- 下面 HTML 的代码和屏幕截图：

Option Explicit

Private Sub Test_Automation()
Dim ie, doc, eInput, eButton, eButtons As Object
Dim sURL, sTest As String

Set ie = CreateObject("internetexplorer.application")
sURL = "https://www.google.co.uk/?gfe_rd=cr&ei=IpDvWK72LsjCaJCbjKAL&gws_rd=ssl"
sTest = "Test"

With ie
    .Visible = True
    .Navigate sURL
End With

Do While ie.Busy Or ie.readyState <> 4
    DoEvents
Loop

Set doc = ie.document

Set eInput = doc.getElementByid("lst-ib")
Set eButtons = doc.getElementsByTagName("input")

eInput.Value = sTest

For Each eButton In eButtons
    If (eButton.getattribute("name") = "btnK") Then
        eButton.Click
        Exit For
    End If
Next

End Sub

任何关于我做错的建议都会很棒！

Answer 1

您可以去掉底部的 For...Next 循环，将其替换为点击按钮：

doc.forms(0).submit

可以将 0 更改为另一个数字（例如 1 或 2）以单击不同的按钮。如果一个页面上有多个可以单击的按钮，则只需反复试验即可找出哪个数字与您要单击的按钮匹配。

.Click 动作不做任何事情 - IE 模拟

.Click action not doing anything - IE Simulation

simulation

excel

internet-explorer

automation

vba