在 VBA 中，我们如何才能让数据显示在 "Inspect Element" 中，而不显示在 "View Page Source" 中？

Question

我正在尝试抓取包含多个选项卡的网页。我想获取单击“按季度”选项卡时显示的季度数据，但我的代码不断返回单击“按年”选项卡时显示的年度数据。问题是两种类型的数据都在同一个 URL 上，当右击“Inspect Element”时，它们的 ID 也是一样的；您无法区分季度数据元素 ID 和年度数据元素 ID。 “Inspect Element”显示季度和年度数据，但“View Page Source”仅显示年度数据。谁能告诉我如何获得季度数据吗？非常感谢。

   Sub Getquarterdata()

    Dim html As HTMLDocument
    Set html = New HTMLDocument
    
    URL = "https://s.cafef.vn/hose/VCB-ngan-hang-thuong-mai-co-phan-ngoai-thuong-viet-nam.chn"
 
    With CreateObject("MSXML2.XMLHTTP")
        .Open "GET", URL, False
        .SetRequestHeader "User-Agent", "Mozilla/5.0"
        .send
        html.body.innerHTML = .responseText

    End With

        ' By "Inspect Element" pointing at Quarterly Data, I counted "td" and came with these lines of code, but they print yearly data.
          Debug.Print html.getElementById("divHoSoCongTyAjax").getElementsByTagName("td")(23).innerText  '=> Print  9,091,070,000 (Year 2017 data)
          Debug.Print html.getElementById("divHoSoCongTyAjax").getElementsByTagName("td")(24).innerText  '=> Print 14,605,578,000 (Year 2018 data)
          Debug.Print html.getElementById("divHoSoCongTyAjax").getElementsByTagName("td")(25).innerText  '=> Print 18,510,898,000 (Year 2019 data)
          Debug.Print html.getElementById("divHoSoCongTyAjax").getElementsByTagName("td")(26).innerText  '=> Print 18,451,311,000 (Year 2020 data)
         ' The thing is that Quarterly Data shows up only with "Inspect Element", but not with "View Page Source"
    Set html = Nothing

结束子

链接

URL: https://s.cafef.vn/hose/VCB-ngan-hang-thuong-mai-co-phan-ngoai-thuong-viet-nam.chn
单击“按季度”选项卡时显示的季度数据 https://drive.google.com/file/d/1oRtrBZxAoKgdE7gMSBsmkpSX_Ljv1c7L/view?usp=sharing
单击“按年”选项卡时显示的年度数据 https://drive.google.com/file/d/1-tI5TU7IMOXFIhsfH8tGvsCRoB0O7Xl1/view?usp=sharing
检查季度数据： https://drive.google.com/file/d/1Xc5hRPTBIKFu7hQoLh4mStp92CxipNpU/view?usp=sharing
查看年度数据： https://drive.google.com/file/d/1LedAF3gvAYSIOKOKfZURR9A2rhK0SNgB/view?usp=sharing

Answer 1

给出的线索之一是在 class 中，您看到它说的是 Ajax。这是动态添加的内容。如果您使用开发工具 (F12) 的网络选项卡，并手动 select 季度选项卡，您将看到以下请求端点，它提供您所需要的数据：

https://s.cafef.vn/Ajax/Bank/BHoSoCongTy.aspx?symbol=VCB&Type=1&PageIndex=0&PageSize=4&donvi=1

Option Explicit

Public Sub GetQuarterlyTable()
    'required VBE (Alt+F11) > Tools > References > Microsoft HTML Object Library ;  Microsoft XML, v6 (your version may vary)

    Dim hTable As MSHTML.HTMLTable
    Dim xhr As MSXML2.XMLHTTP60, html As MSHTML.HTMLDocument
   
    Set xhr = New MSXML2.XMLHTTP60
    Set html = New MSHTML.HTMLDocument

    With xhr
        .Open "GET", "https://s.cafef.vn/Ajax/Bank/BHoSoCongTy.aspx?symbol=VCB&Type=1&PageIndex=0&PageSize=4&donvi=1", False
        .send
        html.body.innerHTML = .responseText
    End With

    Set hTable = html.querySelector(".tab1child_content")
    
    'Do something with table
    Stop
End Sub

在 VBA 中，我们如何才能让数据显示在 "Inspect Element" 中，而不显示在 "View Page Source" 中？

In VBA, How can we get data shown up with "Inspect Element", but not with "View Page Source"?

javascript

vba

getelementbyid

getelementsbytagname

getattribute