1

我有一个我希望是一个简单的问题。我有一些代码在其中加载网页并在 IE 的字段中输入一个数字。如下：

Option Explicit

Private Sub GettingCashAvail()

Dim IE          As InternetExplorerMedium
Dim HTMLDoc     As HTMLDocument
Dim IEField     As HTMLInputElement

Set IE = New InternetExplorerMedium

IE.navigate "https://website.com/login.aspx"

While IE.Busy
    DoEvents
Wend

Do Until IE.statusText = "Done"
    DoEvents
Loop

Set HTMLDoc = IE.document

Set IEField = HTMLDoc.getElementById("ucGetAccountNumber_txtAccountNumber")

IEField.Value = "#########"

现在该字段支持按回车键移动到下一页。我可以为提交按钮调暗第二个对象，然后执行 IESubmit.Click 之类的操作以输入信息并导航到新屏幕，但我想做的是以某种方式发送返回键。以下是我感兴趣的网页源代码部分：

onkeypress="return clickButton(event,'ucGetAccountNumber_btnSubmit')"

您认为有什么方法可以简单地发送回车键吗？如果是这样，感谢您的想法，如果不是，我可以将该提交按钮设置为第二个输入对象。

4

1 回答 1

1

您也许可以使用：

IE.Visible = True
Application.SendKeys "~" '## send the "Enter" keystroke

但是在我尝试使用SendKeys方法时，它们并不是很可靠，大多数人会建议使用不同的方法。

正如您所指出的，我个人认为最好创建另一个对象变量并调用按钮的.Click方法。

于 2013-09-17T15:14:40.913 回答