, поэтому я пытаюсь зайти на сайт realtor.com.
Я хочу заполнить их окно поиска на основе списка значений из столбца F моего листа, а затем нажать кнопку поиска.
У меня есть код, который может перейти на этот сайт, заполните окно поиска. Но в тот момент, когда он нажимает на кнопку поиска, происходит нечто странное. Он выполняет поиск на основе предыдущих поисков в качестве критериев поиска.
Я попытался выяснить, что происходит, я попытался выполнить ручной поиск, и как только я поместил критерии поиска в поле, мои предыдущие поиски появляются внизу, как выпадающий список. Я думаю, что это связано с тем, как он выполняет поиск, или в моем коде чего-то не хватает, когда он нажимает кнопку поиска.
Еще одна вещь, мой код пока не может выполнять поиск по списку, он может выполнять поиск только по определенной ячейке.
Спасибо за помощь.
Sub SearchBot()
'http://automatetheweb.net/
'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
'initiating a new instance of Internet Explorer and asigning it to objIE
Set objIE = New InternetExplorer
'make IE browser visible (False would allow IE to run in the background)
objIE.Visible = True
'navigate IE to this web page (a pretty neat search engine really)
objIE.Navigate "https://realtor.com"
'wait here a few seconds while the browser is busy
Do While objIE.Busy = True Or objIE.readyState <> 4: DoEvents: Loop
'in the search box put the cell reference
objIE.document.getElementById("rdc-main-search-nav-hero-input").Value = Sheets("Addresses").Range("F2").Value
'click the 'Search' button
objIE.document.getElementsByClassName("rdc-btn_2q8dK rdc-btn-brand_28UWP search-btn")(0).Click
'exit our SearchBot subroutine
End Sub