IE输入并单击

Question

请参阅我的脚本以打开IE并从Excel单元格（activecell）中搜索文本。

问题 -

• 宏未点击确定。
• 有时Google搜索字段为空白
• 有时，IE框不会出现在所有其他正在运行的应用程序之前
• 当搜索字词在搜索字段中时，我需要手动输入

尝试在脚本末尾添加sendkeys但不起作用。

Sub googlesearchactivecell()

'
' Working
'

Dim MyItem As String, IE As Object, MyElements As Object

MyItem = ActiveCell.Value

Set IE = CreateObject("InternetExplorer.Application")

IE.Navigate "www.google.com"

While IE.busy = True

Wend

Set MyElements = IE.Document.GetelementsbyTagName("Input")

For Each MyLoop In MyElements

If MyLoop.Name = "q" Then MyLoop.Value = MyItem

If MyLoop.Value = "Google Search" Then: MyLoop.Click: Exit For

Next MyLoop

IE.Visible = True

End Sub