excel vba 中的 Zillow 网页抓取（大问题帮助）

Question

我正在尝试对 Zillow 进行网页抓取。我目前正在使用网络自动化但是，我无法搜索我想要的位置。该值出现在搜索栏上，但是当它提交时它不会更改它会返回到同一页面。即使我改变了它，就像预先建立的价值一样。请帮助我，我已经尝试了这么多天，但我无法得到答案。

Zillow 的代码。-------------------------------------------- --------------------------------------------------

---

<input class="react-autosuggest__input" role="combobox" aria-expanded="false" aria-controls="react-autowhatever-1" aria-owns="react-autowhatever-1" aria-autocomplete="list" aria-label="Search: Suggestions appear below" type="text" placeholder="Address, neighborhood, or ZIP" value="new jersey" autoComplete="off">

Sub zillow()


Dim ie As New SHDocVw.InternetExplorer
Dim doc As MSHTML.HTMLDocument
Dim zillowinput As MSHTML.IHTMLElementCollection
Dim zillowinput2 As MSHTML.IHTMLElementCollection
Dim direc As String
Dim iny As MSHTML.IHTMLElementCollection
Dim inys As MSHTML.IHTMLElement

ie.Visible = True
ie.navigate "https://www.zillow.com/homes/new-jersey_rb/"

Do While ie.readyState <> READYSTATE_COMPLETE Or ie.Busy

Loop`enter code here`

Set doc = ie.document

direc = Range("D5").Value

Application.Wait Now() + #12:00:02 AM#

Set inys = doc.getElementById("srp-search-box")
Set inys = doc.getElementsByTagName("input")(0)
  inys.Focus
  inys.Value = "35 Krakow St, Garfield, NJ 07026"
  inys.Blur

**strong text**

doc.forms(0).submit

Answer 1

搜索框中的更改事件可以使用SendKeys 触发。您可以使用SendKeys模拟用户输入来设置搜索框的值，然后按Enter进行搜索。

你可以参考下面的工作代码：

Sub zillow()

Dim ie As New SHDocVw.InternetExplorer
Dim doc As MSHTML.HTMLDocument
Dim inys As MSHTML.IHTMLElement

ie.Visible = True
ie.navigate "https://www.zillow.com/homes/new-jersey_rb/"

Do While ie.readyState <> READYSTATE_COMPLETE Or ie.Busy

Loop

Set doc = ie.document

Application.Wait Now() + #12:00:02 AM#

Set inys = doc.getElementsByTagName("input")(0)
  inys.Focus
  SendKeys ("35 Krakow St, Garfield, NJ 07026")
  Application.Wait (Now + TimeValue("00:00:02"))
  SendKeys ("{ENTER}")

End Sub

在 IE 中的结果：