Question

以下行是完整代码。

[问题] VBA表单显示Google并输入“最佳广播”的值并单击按钮。 1）但是在输入“最佳广播”的Google网页成功后，会显示438错误。 2）点击“Google搜索”按钮，但只有按下回车键，Google才会显示搜索结果。

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页面会打开，以及“最佳广播”的结果。显示。

说明：问题在于他们的网页是互动的，甚至在您点击“输入”之前就会自动从主页更改为结果页面。从而删除btnK按钮，然后您可以不再单击（但正在尝试）。这就是Excel失败的原因。

VBA Webbrowser按钮单击“自动化”

1 个答案: