Question

我想从下拉列表https://wm.watchsystems.com/stpsocivil/realestatesl.html中刮取每个日期的网站表

我不得不使用Excel / VBA，但很难找到下拉列表对象以使用循环选择每个日期

我尝试使用getElementsByName选择整个销售列表，还尝试通过id获取元素，coudlnt正确选择任何东西以从下拉列表中选择日期

Set Post = objIE.document.getElementByAttributeName("cboSaleDate")

For Each elem In Post.getElementsByTagName("option")
    If Len(elem.Value) > 4 Then
       elem.Selected = True
       Do While objIE.Busy = True Or objIE.readyState <> 4: DoEvents: Loop
    End If
Next elem

Set hBody = objIE.document.getElementsByTagName("tbody")

我想使用循环选择每个日期，然后获取显示的表格以从中抓取数据（我正在为每个tr和td使用循环以从表格中获取数据，只是还无法获取表格本身）谢谢

Answer 1

通过链接https://wm.watchsystems.com/stpsocivil/realSalesList.asp的帮助循环而我没有遍历名字

k = 0
For Each date_picked In .document.getElementsByTagName("select").Item(0)
k = k + 1
.document.getElementsByTagName("select").Item(0).selectedIndex = k
.document.getElementsByTagName("select").Item(0).FireEvent ("onchange")
next

通过使用Excel / VBA选择名称不带下拉列表的属性来抓取网站

1 个答案: