Excel Web抓取时加载相关下拉选项
我正试图从以下网站上搜集数据: &tb=骑师和rbt=tb 我希望VBA代码执行以下步骤: 转到URL 点击骑师 从下拉列表中选择一个曲目。比如说,选择阿尔伯克基 根据选定的曲目,页面将加载可用的Meets下拉列表。 现在我想从下拉列表中选择第一次见面 我的代码正在从第一个下拉列表中选择值ALBUQUERQUE,但没有在第二个下拉列表中加载数据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
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个小时,但我找不到解决这个问题的方法。我非常感谢你。谢谢你,伙计!如果你知道怎么做,一切都很容易,这是不言而喻的。所以对我来说,这很容易。我很高兴你能从中获得新的知识:-没错!!非常感谢