VBA Webbrowser 按钮单击以实现自动化

Question

下面几行是完整的代码。

[问题] VBA 表单显示 Google 并输入“最佳收音机”的值并单击按钮。 1) 但是在输入“最佳电台”的成功谷歌页面后出现 438 错误。 2）“谷歌搜索”按钮被点击，但只有当我按下回车键时，谷歌才会显示搜索结果。

Option Explicit
Dim objIE
Private Sub CommandButton1_Click()
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Top = 0
objIE.Left = 0
objIE.Width = 800
objIE.Height = 600
objIE.Addressbar = 0
objIE.StatusBar = 0
objIE.Toolbar = 0
objIE.Visible = True
objIE.Navigate ("http://www.google.com")

Do
DoEvents
Loop Until objIE.ReadyState = 4
     objIE.Document.GetElementByID("lst-ib").Value = "best radio"
     objIE.Document.GetElementsByName("btnK").Click
     SendKeys "{ENTER}"


Do
DoEvents
Loop Until objIE.ReadyState = 4
MsgBox "complete"


End Sub

Answer 1

删除objIE.Document.GetElementsByName("btnK").Click。然后，Google 页面会正常打开，并显示“最佳收音机”的结果。

解释：问题在于他们的页面是交互式的，甚至在您点击“Enter”之前就自动从主页更改为结果页面。因此，btnK 按钮被删除，您不能再单击（但正在尝试）。这就是 Excel 失败的原因。