Excel Web抓取时加载相关下拉选项

Excel Web抓取时加载相关下拉选项,excel,vba,web-scraping,Excel,Vba,Web Scraping,我正试图从以下网站上搜集数据: &tb=骑师和rbt=tb 我希望VBA代码执行以下步骤: 转到URL 点击骑师 从下拉列表中选择一个曲目。比如说,选择阿尔伯克基 根据选定的曲目,页面将加载可用的Meets下拉列表。 现在我想从下拉列表中选择第一次见面 我的代码正在从第一个下拉列表中选择值ALBUQUERQUE,但没有在第二个下拉列表中加载数据 Sub extract() Dim ie As New InternetExplorer Dim doc As New HTMLDocument Di

我正试图从以下网站上搜集数据: &tb=骑师和rbt=tb

我希望VBA代码执行以下步骤:

转到URL 点击骑师 从下拉列表中选择一个曲目。比如说,选择阿尔伯克基 根据选定的曲目,页面将加载可用的Meets下拉列表。 现在我想从下拉列表中选择第一次见面

我的代码正在从第一个下拉列表中选择值ALBUQUERQUE,但没有在第二个下拉列表中加载数据

Sub extract()

Dim ie As New InternetExplorer
Dim doc As New HTMLDocument
Dim optionText As String

optionText = "ALBUQUERQUE"
ie.Visible = True
Url = "http://www.equibase.com/stats/View.cfm?tf=meet&tb=jockey&rbt=TB"
ie.Navigate Url

Application.StatusBar = "Navigating to URL..."

Do
    DoEvents
Loop Until ie.ReadyState = READYSTATE_COMPLETE

Do While ie.Busy
    DoEvents
Loop

Set doc = ie.Document

Set jockeyButton = doc.getElementsByClassName("scMainTab")
   
For Each Button In jockeyButton
    If Button.getAttribute("href") = "#jockey" Then
        Button.Click
        Exit For
    End If
Next Button

Set tracksDropdown = doc.getElementById("selAvailTracks")

''AT THIS POINT, IT SHOULD AUTOMATICALLY LOAD THE SECOND DROP DOWN BUT IT IS NOT HAPPENING

ie.Quit
Set ie = Nothing

End Sub

如何从第二个下拉列表中选择第一项?

神奇的单词是html事件。要使下拉列表中的选择生效,必须触发其更改事件。否则什么也不会发生

不能将ALBUQUERQUE放在第一个下拉列表中。ALBUQUERQUE的值为ALB:USA

可用曲目 阿尔伯克基 渡槽 阿拉帕霍公园 亚利桑那唐斯 阿灵顿 阿西尼博亚唐斯酒店 阿托卡德唐斯酒店 贝尔蒙特公园 ... ...
…另一个信息,我正在使用IE11。我认为这可能是一个兼容性问题。请帮帮我,哇!这太棒了!我已经在互联网上搜索了2个小时,但我找不到解决这个问题的方法。我非常感谢你。谢谢你,伙计!如果你知道怎么做,一切都很容易,这是不言而喻的。所以对我来说,这很容易。我很高兴你能从中获得新的知识:-没错!!非常感谢