VBA XMLHTTP 请求不捕获动态 HTML 响应

Question

我正在尝试从网页中获取特定的动态图形到 excel，我设法将所有网站获取响应收集到一个“全部”变量中，我应该解析该变量以提取我的数字，除了当我检查字符串变量我可以看到除了所需的动态数字之外的所有内容！ :)“附图显示了当时的动态数字是2.19”， 任何想法为什么我要捕捉每一件事，将不胜感激，在此先感谢

我的想法： 1.我猜这些数字是由 JavaScript 或服务器端注入的，可能在我的 XMLHTTP 请求被处理后执行！如果是这种情况，否则我需要您的专业知识

1. 除非看到特定的 Html 请求标头，否则网站不会响应，所以我可能需要模仿 Chrome 的标头，我不知道它们长什么样？

请查看下面我的代码和我想要捕获的图形的屏幕截图

'Tools>refrences>microsoft xml v3 must be refrenced
Public Function GetWebSource(ByRef URL As String) As String
    Dim xml As IXMLHTTPRequest
    On Error Resume Next
    Set xml = CreateObject("Microsoft.XMLHTTP")
    With xml
        .Open "GET", URL, False
        .send
        GetWebSource = .responseText
    End With
    Set xml = Nothing
End Function

Sub ADAD()
Dim all As Variant
Dim objHTTP As Object
Dim URL As String

Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
all = GetWebSource("https://www.tradingview.com/symbols/CRYPTOCAP-ADA.D/")


pos = InStr(all, "tv-symbol-price-quote__value js-symbol-last")
testString = Mid(all, pos, 200)
'I am supposed to see the dynamic figure within the TAG but it is not showing!!
Debug.Print testString

End Sub

HTML for Dynamic Required values

Answer 1

@Tim Williams 这是一个使用 selenium 的代码（但它似乎并没有起到获取价值的作用）

PhantomJS Selenium VBA

Sub Test()
    Dim bot As Selenium.PhantomJSDriver
    Set bot = New Selenium.PhantomJSDriver
    With bot
        .Get "https://www.tradingview.com/symbols/CRYPTOCAP-ADA.D/"
        .Wait 2000
        Debug.Print .FindElementByXPath("//div[@class='tv-symbol-price-quote__value js-symbol-last']").Attribute("outerHTML")
    End With
End Sub

Chrome VBA 硒

似乎使用PhantomJS 无法正常工作，所以这里有一个 Chrome 版本的 VBA 中的 selenium

Private bot As Selenium.ChromeDriver

Sub Test()
    Set bot = New Selenium.ChromeDriver
    With bot
        .Start
        .Get "https://www.tradingview.com/symbols/CRYPTOCAP-ADA.D/"
        Debug.Print .FindElementByXPath("//div[@class='tv-symbol-price-quote__value js-symbol-last']").Text 'Attribute("outerHTML")
        .Quit
    End With
End Sub

Python 解决方案

这是我的导师@QHarr 在 cmets 中提供的工作 python 代码

from selenium import webdriver

d = webdriver.Chrome("D:/Webdrivers/chromedriver.exe")
d.get('https://www.tradingview.com/symbols/CRYPTOCAP-ADA.D/')
d.find_element_by_css_selector('.tv-symbol-price-quote__value.js-symbol-last').text