VBA sendkeys用于Enter按钮

时间:2017-02-02 06:37:11

标签: vba internet-explorer sendkeys

任何人都知道如何在IE11中使用sendkeys进行呼入输入按钮?
已经在一些sendkeys命令中使用:

SendKeys String:="{Enter}"
SendKeys vbCrLf
Application.OnKey "~"
Application.Sendkeys "{ENTER}"

Enter功能仍无效。

reviews = "ERRORHERE"
On Error Resume Next
reviews = Trim(IE.document.getElementsByClassName("pull-right pagination-page")(0).getElementsByTagName("span")(0).innerText)
On Error GoTo 0
If reviews = "ERRORHERE" Then
    Sheet3.Range("G" & i).Value = "0"
Else            
    Set inputfield = IE.document.getElementsByClassName("pagination-input")
    If inputfield.Length > 0 Then
        inputfield(0).Value = reviews
        inputfield(0).Select
        Application.Wait Now + TimeValue("00:00:01")
        SendKeys String:="{Enter}" '<< this line for Enter button is not working
    End If
End If
Application.Wait (Now + TimeValue("00:00:2"))

有关此Sendkeys命令的任何帮助?或任何帮助如何使用js函数而不是vba

0 个答案:

没有答案