无ID和类名的HTML页面VBA网页抓取自动化问题求助

问题背景 #

需实现自动化流程：将Excel单元格内容填入网页表单，再把网页返回的数据存入另一Excel单元格。但目标网页无类名、ID，由JS脚本驱动，现有VBA代码无法正常运行。

原代码问题分析 #

原代码存在两处关键问题：

1. 页面加载等待逻辑错误：原循环条件Do Until ie.Busy Or ie.readyState <> READYSTATE_COMPLETE会导致页面未完全加载就提前结束等待，后续操作DOM时元素可能还未生成。
2. 元素获取方式错误：getElementsByTagName$("input[name=cntno]")用法错误，getElementsByTagName返回元素集合，不能直接赋值.Value；且通过标签名定位效率低，应直接用getElementsByName定位目标元素。

修正后的VBA代码 #

Sub updateSRV()
    Dim ie As InternetExplorer
    Dim doc As HTMLDocument
    Dim targetInput As Object
    
    Set ie = New InternetExplorer
    ie.Visible = True
    
    ' 导航到目标网页
    ie.navigate "http://hwrapp:7778/reports/jsprep/umesh/cnote/cnote_query5.html"
    
    ' 等待页面完全加载
    Do While ie.Busy Or ie.readyState <> READYSTATE_COMPLETE
        DoEvents
    Loop
    
    Set doc = ie.document
    
    ' 等待目标元素加载（适配JS动态生成的元素）
    Do
        DoEvents
        Set targetInput = doc.getElementsByName("cntno")(0)
    Loop Until Not targetInput Is Nothing
    
    ' 填充目标内容
    targetInput.Value = 20220064
    
    ' 后续可扩展逻辑：点击查询按钮、等待结果加载、提取数据写入Excel
    ' 示例：doc.getElementsByName("查询按钮名称")(0).Click
    ' 等待结果加载后，通过元素定位提取数据并写入Excel单元格
    
End Sub

补充说明 #

• 若网页元素由JS动态渲染，仅等待页面readyState完成可能不够，需循环等待目标元素出现。
• 可使用QuerySelector简化元素定位，语法示例：Set targetInput = doc.querySelector("input[name='cntno']")。
• 提取返回数据时，需根据网页结果区域的结构，选择getElementsByTagName、QuerySelector等方式定位元素。

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