如何在VBA中单击网页按钮进行解析 [英] How to click a webpage button in VBA for parsing

问题描述

我正在尝试访问下表中的所有信息:

I'm trying to access all the information on the following table:

https://www.tradingview.com/markets/股票-美国/sectorandindustry-industry/生物技术/

使用以下 VBA 代码:

using the following VBA code:

Sub GetInfo()

    Dim XMLPage As New MSXML2.XMLHTTP60
    Dim HTMLDoc As New MSHTML.HTMLDocument
    Dim HTMLTable, HTMLRow, HTMLCell, button As MSHTML.IHTMLElement

    XMLPage.Open "GET", "https://www.tradingview.com/markets/stocks-usa/sectorandindustry-industry/biotechnology/", False
    XMLPage.send

    HTMLDoc.body.innerHTML = XMLPage.responseText

    Set HTMLTable = HTMLDoc.getElementsByTagName("tr")

    For Each HTMLRow In HTMLTable
        For Each HTMLCell In HTMLRow.Children
            Debug.Print HTMLCell.innerText
        Next HTMLCell
    Next HTMLRow

End Sub

这很好用，但无法获取页面上的所有内容.在页面底部，有一个按钮，您必须单击才能加载更多"信息.我认为按钮定义如下:

This works great but isn't capable of getting everything on the page. On the bottom of the page, there is a button you must click to "Load More" information. I think the button is defined below:

<div class="tv-load-more tv-load-more--screener js-screener-load-more">
    <span class="tv-load-more__btn">Load More</span>

我尝试了几种不同的方法，但还没有成功.有没有办法让 VBA 自动化以一直单击该按钮直到所有内容都加载完毕，然后运行上面的 VBA 代码?

I've tried a few different methods but haven't found success yet. Is there a way to automate VBA to keep clicking that button until everything is loaded, then run the VBA code above?

推荐答案

这是一些使用 Selenium 的代码.唯一的问题是它比原始代码慢得多......我想我会继续寻找其他数据源.再次，非常感谢任何建议！

Here's some code using Selenium. The only problem is that it's much slower than the original code... I think I'll continue looking for other data sources. Once again, any suggestions are much appreciated!

Sub GetTickerInfo()

    Dim driver As New Selenium.ChromeDriver
    Dim click As Boolean

    With driver
        .AddArgument "--headless"
        .Get "https://www.tradingview.com/markets/stocks-usa/sectorandindustry-industry/biotechnology/"
    End With

    click = True

    On Error GoTo done
    While click
        driver.FindElementByClass("tv-load-more__btn").click
        Application.Wait Now + TimeValue("00:00:01")
    Wend

done:
    Resume continue
continue:

    For Each tr In driver.FindElementsByTag("tr")
       For Each td In tr.FindElementsByTag("td")
           Debug.Print td.Text
       Next td
    Next tr

End Sub

这篇关于如何在VBA中单击网页按钮进行解析的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！