Question

从我的共同努力中，我试图用VBA编写从Internet Explorer提取AirBnB。我要输入：1.一个位置2.日期范围。之后，我不希望它在电子表格上显示前四个。

在我独自写作失败后，我一直尝试关注YouTube视频。

Sub pulldata()

Dim IE As Object
Dim doc As HTMLDocument

Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True

IE.navigate "https://www.airbnb.com/s/homes?adults=1&children=0&checkin=&checkout=&source=mc_search_bar"

Do While IE.Busy Or IE.readyState <> 4
    Application.Wait DateAdd("s", 1, Now)
Loop

Set doc = IE.document

doc.getElementById ("Koan-via-SearchHeader_input"), Value = ""

我想在电子表格上按下一个按钮，然后它在AirBnB中搜索“纽约，市区，从X日期到Y日期。然后将其前四个选项与名称和价格一起粘贴。” >

Answer 1

您的最后一行应为：Set elem = doc.getElementById ("Koan-via-SearchHeader__input")。请注意，您在ID中缺少下划线。将elem声明为Object。

构建电子表格以进行抓取

1 个答案: