爬取xrates.com汇率表格时无需硬编码行号高效提取单元格值的方法咨询

首先不存在原生的getElementByContent类方法，你倾向的“按内容匹配定位行”思路本身是完全正确的，且实现复杂度远低于你的预期，根本不需要编写大量解析代码，同时也是这个场景下效率最高的方案。

你之所以觉得按内容匹配的方案需要大量代码，本质上是对DOM操作的流程存在认知偏差：

• 所有按文本内容定位元素的逻辑，底层都是通过遍历DOM节点、校验节点文本值实现的，没有任何解析器能提供通用的“按内容直取元素”API——因为文本匹配规则本身是高度自定义的（是完全匹配？忽略大小写？匹配子串？），这部分只需要写1-2行判断逻辑，根本算不上复杂开发量。
• 你担心的“先找到带目标内容的元素再回溯找父行”的路径，其实可以被简化：因为你已经拿到了表格TBODY的根节点，直接遍历其下的所有TR行，逐行判断单元格内容是否匹配目标，本身就完成了定位行的全过程，不需要额外做“找孤立单元格、回溯父节点”的多余操作。

结合你当前已经获取到Topic（目标表格TBODY对象）的代码基础，整个流程不需要6次全表扫描，只需要单次遍历即可完成所有6种目标货币的提取，核心逻辑如下：

1. 提前把需要提取的6种货币名称存入字典对象，利用字典的O(1)查找特性避免冗余的字符串比较
2. 单次遍历TBODY下的所有TR行，对每一行的货币名称单元格做匹配校验
3. 命中匹配项时，直接提取当前行的汇率值存入字典，遍历完全部53行即可拿到所有目标数据
   核心参考代码（适配你当前的VBA抓取场景）：

' 初始化目标货币字典，存储需提取的货币和对应汇率
Dim targetRates As Object
Set targetRates = CreateObject("Scripting.Dictionary")
targetRates.CompareMode = vbTextCompare ' 忽略文本大小写差异，匹配更鲁棒
targetRates("US Dollar") = ""
targetRates("Euro") = ""
' 此处补充剩余4种需提取的货币名称

' 遍历表格所有行做单次匹配
Dim currentRow As Object
For Each currentRow In Topic.getElementsByTagName("TR")
    Dim currencyName As String
    ' 取行首货币名称单元格的文本，去除前后空格
    currencyName = Trim(currentRow.Cells(0).innerText)
    ' 命中目标货币则提取对应汇率
    If targetRates.Exists(currencyName) Then
        ' 索引替换为你实际存储汇率的单元格位置即可
        targetRates(currencyName) = Trim(currentRow.Cells(1).innerText)
    End If
Next

• 完全不硬编码行号，哪怕网站调整表格行的排序、调整行的展示数量，只要货币名称单元格的文本保持稳定，脚本就能正常运行
• 单次遍历的总开销极低，远低于你最初设想的6次全表扫描的实现方式
• 代码量极简，没有复杂的DOM回溯、文本解析逻辑
• 所有操作都基于已获取的TBODY节点完成，不需要重新遍历整个HTML文档搜索元素

内容的提问来源于stack exchange，提问作者Variatus