0

目标:我试图从网站上提取 200 种证券的投标价格。

问题:我正在尝试提取价格所在的 td 标签的内部文本。

在此处输入图像描述

这个想法是遍历所有 TH 标签的 HTML 文档,一旦找到“Bid”,就提取下一行代码的内部文本。

VBA 错误

“对象不支持此属性”

我的代码用于提取一种安全性。我没有包括所有 200 种证券的更大循环。

Set objHTML = objIE.document

Set Mytext = objHTML.getElementsByTagName("Th")

For Each Node In Mytext

    If Node.innertext = "Bid" Then
        BidPrice = Node.NextSibling.innertext
        Cells(a, 2) = BidPrice
        Exit For
    End If

Next Node
4

1 回答 1

1
For Each Node In elementOne 

If Node.innerText = "Bid" Then 

Cells(a, 2) = Node.ParentNode.querySelector("td").innerText 
'This pulls the Bid Price 8.745

再次感谢大家的帮助,尤其是 SIM!

ps 我将学习正确的格式,现在,我只想紧急表达我的感激之情。

于 2019-06-18T19:57:00.240 回答