html - 即使元素类名存在，也无法设置 HTML 元素

问题描述

我正在尝试将 Web 数据提取到 Excel。但是，我未能通过类名或标记名在表元素上设置对象。你能告诉我我错在哪里，我怎样才能到达那个表并提取表数据。

感谢您阅读我的帖子并感谢您的帮助。


    Dim XMLPage As New MSXML2.XMLHTTP60
    Dim HTMLDoc As New MSHTML.HTMLDocument
    Dim HTMLDiv As MSHTML.IHTMLElement
    Dim HTMLTables As MSHTML.IHTMLElementCollection
    Dim HTMLTable As MSHTML.IHTMLElement
    Dim HTMLCell As MSHTML.IHTMLElement
    Dim URL As String, i As Integer, j As Integer
    
    URL = "https://banggia.vps.com.vn/chung-khoan/chung-quyen"
    
    XMLPage.Open "GET", URL, False
    XMLPage.send
    
    HTMLDoc.body.innerHTML = XMLPage.responseText

Set HTMLTables = HTMLDoc.getElementsByTagName("table")
    Debug.Print HTMLTables.Length '<--------- return result is 0
    
Set HTMLTables = HTMLDoc.getElementsByClassName("price-table")
    Debug.Print HTMLTables.Length '<--------- return result is 0

Set HTMLDiv = Nothing: Set HTMLTable = Nothing: Set XMLPage = Nothing: Set HTMLCell = Nothing: Set HTMLTables = Nothing</code>

检查网站在下面的链接中显示详细信息

网站元素检查在这里

标签： htmlvba

html - 即使元素类名存在，也无法设置 HTML 元素

问题描述

解决方案

推荐阅读