You need to enable JavaScript to run this app.
优惠活动
大模型
产品
解决方案
定价
更多

无法通过类名获取元素:如何提取TradingView技术摘要投票数?

无法用VBA提取TradingView页面Technical Summary投票数的问题

我尝试提取TradingView页面(以https://in.tradingview.com/symbols/NSE-TCS/为例)中Technical Summary组件里的Buy、Sell、Neutral投票数,对应的目标元素代码如下:

<span class="tv-widget-technicals__counter-number redColor">2</span> <span class="tv-widget-technicals__counter-number neutralColor">10</span> <span class="tv-widget-technicals__counter-number brandColor">8</span>

我试过多种方法(包括遍历所有span元素)都无法访问到这些元素,下面是我编写的VBA代码:

Sub Test_Macro() 
    Dim i As Long, j As Long, fD As Long 
    Dim symBol As String, urL As String, hdoc 
    Dim oHtml As HTMLDocument 
    Dim oElement As Object 
    Dim dados 
    With DATA 
        fD = .Range("A" & .Rows.Count).End(xlUp).Row 
        Set oHtml = New HTMLDocument 
        With CreateObject("WINHTTP.WinHTTPRequest.5.1") 
            For i = 2 To fD 
                symBol = Trim(Replace(Replace(DATA.Range("A" & i).Value, "-", "_"), "&", "_")) 
                urL = "https://in.tradingview.com/symbols/NSE-" & symBol 
                .Open "GET", urL, False 
                .send 
                oHtml.body.innerHTML = .responseText 
                Stop 
                Set dados = oHtml.getElementsByClassName("tv-site-widget ").Item(1).getElementsByTagName("span") 
                j = 1 
                For Each oElement In dados 
                    DATA.Range("F" & j) = oElement.innerText 
                    j = j + 1 
                    'Debug.Print oElement.innerHTML 
                Next oElement 
                Stop 
            Next i 
        End With 
    End With 
End Sub

请问该如何解决这个问题?

内容的提问来源于stack exchange,提问作者AriKari

相关产品推荐
方舟 Agent Plan

超全模态模型 × Harness 升级,最新支持 Deepseek-V4.1-Flash、GLM-5.3 系列、Doubao-Seedream-5.0-pro、Kimi-K3 (部分), 限时 9.9 元起

最近更新时间:2026.05.28 09:58:01