Excel、VBA和web自动化

Question

我有一个非常大的Excel电子表格，其中包括地址。我想写一段代码自动打开https://www.greatschools.org/，将地址逐个粘贴到搜索框中，获得这个地址的最佳学校名称，然后将它们粘贴到Excel文件中。

我使用这段代码来粘贴网页中的一个地址，但是当它粘贴并按下搜索按钮时，它不会显示任何结果。

Sub SearchBot()

'dimension (declare or set aside memory for) our variables
Dim objIE As InternetExplorer
'special object variable representing the IE browser

Dim aEle As HTMLLinkElement
'special object variable for an <a> (link) element

Dim y As Integer
'integer variable we'll use as a counter

Dim result As String
'string variable that will hold our result link

Set objIE = New InternetExplorer
objIE.Visible = True
objIE.navigate "https://www.greatschools.org/"

Do While objIE.Busy = True Or objIE.readyState <> 4: DoEvents: Loop

objIE.document.getElementsByClassName("form-control")(0).Focus

objIE.document.getElementsByClassName("form-control")(0).Value = _
  Sheets("Sheet1").Range("A1").Value
'click the 'go' button
objIE.document.getElementsByClassName("input-group-btn")(0).Click

Do While objIE.Busy = True Or objIE.readyState <> 4: DoEvents: Loop

我甚至添加了上面的代码，让它有更多的时间来查找结果，但这对我一点帮助都没有。

首先，它将地址粘贴到搜索框中，一段时间后，该地址从搜索框中消失，并且在那里没有我的结果。

有人能帮我解决这个问题吗？谢谢。

Answer 1

Do While循环之间的这两行代码适用于我：

objIE.Document.getElementsByClassName("form-control")(1).Value = Sheets("Sheet1").Range("A1").Value
'click the 'go' button
objIE.Document.getElementsByClassName("btn search-btn")(0).Click

请注意在表单控件条目上使用(1) index。