使用VBA提取ETF昨日收盘价遇网页元素ID定位问题求助

核心定位方案 #

目标网页的历史价格表格没有专属ID，但可以通过表格的class属性精准定位。同时原代码的页面加载判断不够严谨，需要补充状态校验避免操作未加载完成的DOM。

修改后的完整VBA代码 #

Sub GetETFPrices()
    Dim IE As New InternetExplorer
    Dim HTMLDoc As HTMLDocument
    Dim ETFLink As String
    Dim ETFPrice As String
    Dim i As Long
    Dim priceTable As HTMLTable
    Dim lastRow As HTMLTableRow
    
    ' 调试时可设为True，发布后改为False隐藏浏览器
    IE.Visible = True
    
    ' 遍历Excel中所有ETF链接行
    For i = 2 To ThisWorkbook.Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
        ETFLink = ThisWorkbook.Worksheets("Sheet1").Cells(i, 2).Value
        
        IE.Navigate ETFLink
        
        ' 等待页面完全加载完成
        Do While IE.Busy Or IE.ReadyState <> READYSTATE_COMPLETE
            DoEvents
        Loop
        
        Set HTMLDoc = IE.document
        
        ' 通过表格的专属class定位历史价格表
        Set priceTable = HTMLDoc.querySelector("table.table--striped")
        
        If Not priceTable Is Nothing Then
            ' 获取表格最后一行（最新的历史数据）
            Set lastRow = priceTable.Rows(priceTable.Rows.Length - 1)
            ' 收盘价对应第4列（索引从0开始为3）
            ETFPrice = lastRow.Cells(3).innerText
            ' 写入Excel价格列
            ThisWorkbook.Worksheets("Sheet1").Cells(i, 3).Value = ETFPrice
        Else
            ' 找不到表格时标记错误
            ThisWorkbook.Worksheets("Sheet1").Cells(i, 3).Value = "数据获取失败"
        End If
    Next i
    
    IE.Quit
    Set IE = Nothing
End Sub

关键细节说明 #

• 表格定位逻辑：目标网页的历史价格表格使用了table--striped这个独有class，用querySelector方法可以直接锁定该表格，无需依赖ID。
• 页面加载优化：补充IE.ReadyState <> READYSTATE_COMPLETE判断，确保页面所有资源加载完成后再操作DOM，避免提取空数据。
• 容错处理：增加表格存在性校验，防止因网页结构变更导致代码崩溃，同时给异常情况标记明确提示。

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