在IE上使用Excel VBA按Enter键“按Enter键进行搜索”

Question

我正在处理一个Web表单文本字段，当按下“ Enter”键时，它将开始对其内容进行搜索。

我知道如何启动所有其他事件侦听器，但是我无法使按下“ Enter”事件触发。 它未与其他事件一起列出。 即onchange，onclick，onblur

我正在使用CreateObject（“ Shell.Application”）作为Excel VBA中的父对象来控制现有的IE浏览器。

我尝试了sendkey，但是VBA专注于什么。 它输入我的IDE或电子表格本身。

它不是一个公共站点。 它是带有事件（模糊，更改，焦点，键按下，鼠标按下，鼠标移动）的输入标签。

  With Tex_Box
       .focus
       .keydown
       .innertext = Field_Text
       .change
       .focus
       .blur
   End With

Answer 1

因此，我发现stackoverflow.com/questions/11655591/…描述了如何在良好使用Sendkey之前为Internet Explorer提供焦点。 但是，“如何”只是难题的一部分，另一部分是在程序调用sendkey“〜”（Enter）之前找到“什么”需要关注。 由于需要使用未知数量的sendkey“ {TAB}”来将光标放在所需的字段上，因此我创建了一个循环，该循环将连续迭代所有文本字段，直到出现部分字符串“ focus”在所需文本框标题为classname的属性中。 一旦发生这种情况，该程序将具有一个标记，以使其知道调用sendkey“〜”。

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Declare Function SetForegroundWindow Lib "user32" (ByVal HWND As Long) As Long
Dim HWNDSrc As Long

text_again:
With DOCK_Tex_Box
    .focus
    .keydown
    .innertext = Field_Text
    .change
    Sleep (500)
    .focus
    .blur
    HWNDSrc = IE.HWND 
   For i = 1 To 100
      DoEvents
      SetForegroundWindow HWNDSrc
      DoEvents
      Application.SendKeys ("{TAB}"), True
      DoEvents
      Sleep 1000
      If InStr(.classname, "prompt") > 0 Then 'If the for loop goes to quickly the field loses focus and then the text clears out.
          DoEvents
          Sleep 500
          GoTo text_again:
      End If

      If InStr(.classname, "focus") > 0 Then 'Text field has focus
        Sleep 1000
        Exit For
      End If
   Next
End With
Application.SendKeys ("~"), True
DoEvents
Sleep 500