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

下面几行是完整的代码

[问题] 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

---

删除objIE.Document.GetElementsByName（“btnK”）。单击。谷歌页面随即打开ok，并显示“最佳广播”的结果

---

解释：问题在于他们的页面是交互式的，甚至在你点击“回车”之前，他们的页面就自动从主页切换到结果页面。因此，

btnK

按钮被删除，您无法再单击该按钮（但正在尝试）。这就是Excel失败的原因。

当我删除objIE.Document.GetElementsByName（“btnK”）时，单击，Google页面打开ok，并显示“最佳收音机”的结果。我想问题在于他们的页面是交互式的，甚至在你点击“回车”键之前，他们的页面就会自动从主页切换到结果页面。因此，

btnK

按钮被删除，您无法再单击该按钮。这就是Excel失败的原因。谢谢！你说得对！我怎么帮你打勾？我找不到。你不能勾选评论。我在下面添加了一个答案，勾号在上/下箭头下方。单击灰色勾号将答案标记为已接受。谢谢：-）你能把同样的问题解决到另一个网站吗？我来贴吧。希望你能比别人先做。很好的一天！