使用Excel VBA解析网页HTML无法获取txtMaturity的value属性值

看起来你遇到的是很典型的动态内容加载问题——用MSXML2.XMLHTTP获取到的是服务器返回的静态原始HTML，而目标input#txtMaturity的value值是通过JavaScript在客户端动态渲染出来的，原始HTML里这个属性根本没被填充（看你贴的HTML结构里确实没有value属性），所以getAttribute("value")自然返回空字符串。

下面给你两种可行的解决方案：

方法一：使用IE浏览器对象模拟加载（最直接） #

这种方法通过模拟真实浏览器打开页面，让浏览器自动执行所有JavaScript代码，等页面完全渲染后再获取动态生成的value值。

Sub GetDynamicValueUsingIE()
    Dim ie As Object
    Dim targetInput As Object
    Dim url As String
    
    url = "http://www.mae.com.ar/legales/emisiones/ONDetalle.aspx?id=1415"
    
    ' 创建IE实例
    Set ie = CreateObject("InternetExplorer.Application")
    With ie
        .Visible = True ' 设为False可以隐藏浏览器窗口
        .Navigate url
        
        ' 等待页面基础加载完成
        Do While .Busy Or .ReadyState <> 4
            DoEvents
        Loop
        
        ' 额外等待2秒，确保异步JS完成渲染（可根据页面加载速度调整）
        Application.Wait Now + TimeValue("00:00:02")
        
        ' 通过ID定位目标元素
        Set targetInput = .Document.getElementById("txtMaturity")
        If Not targetInput Is Nothing Then
            Debug.Print "获取到的到期日：" & targetInput.Value
            ' 也可以把值赋值给变量使用
            ' output = targetInput.Value
        Else
            MsgBox "未找到目标元素，请检查元素ID是否正确"
        End If
        
        .Quit ' 关闭浏览器
    End With
    Set ie = Nothing
End Sub

注意事项： #

• 如果你的系统默认浏览器是Edge，也可以改用Microsoft Edge WebView2控件，比IE更现代稳定，不过需要额外配置环境。
• 等待时间可以根据实际页面加载情况调整，避免因JS加载慢导致获取失败。

方法二：直接请求后端数据接口（更高效） #

如果不想用浏览器模拟，你可以通过浏览器开发者工具（F12）抓包，找到页面加载时获取到期日的后端API接口，直接用XMLHTTP请求这个接口获取原始数据，这种方法速度更快，也更稳定。

步骤大概是：

1. 打开目标页面，按F12打开开发者工具，切换到「网络」标签。
2. 刷新页面，找到返回债券详情的请求（通常是XHR/Fetch类型）。
3. 复制该请求的URL、请求方法（GET/POST）和请求参数。

假设你找到的接口是POST请求，返回JSON格式数据，示例代码如下（需要用到VBA-JSON库解析JSON，你可以自行搜索获取）：

Sub GetValueViaBackendAPI()
    Dim xhr As Object
    Dim url As String
    Dim responseText As String
    Dim jsonObj As Object
    
    ' 替换为你抓包得到的实际接口URL
    url = "http://www.mae.com.ar/legales/emisiones/[实际数据接口路径]"
    
    Set xhr = CreateObject("MSXML2.XMLHTTP")
    With xhr
        .Open "POST", url, False
        ' 设置请求头，匹配抓包到的内容
        .setRequestHeader "Content-Type", "application/json; charset=utf-8"
        ' 发送请求参数，比如id=1415，格式根据接口要求调整
        .send "{""id"":1415}"
        
        If .ReadyState = 4 And .Status = 200 Then
            responseText = .responseText
            ' 解析JSON（需要引用VBA-JSON库）
            Set jsonObj = JsonConverter.ParseJson(responseText)
            ' 根据实际返回的JSON结构提取到期日，这里只是示例
            Debug.Print "到期日：" & jsonObj("d")("Maturity")
        Else
            MsgBox "请求失败，状态码：" & .Status
        End If
    End With
    Set xhr = Nothing
    Set jsonObj = Nothing
End Sub

为什么原方法不行？ #

再强调一下：MSXML2.XMLHTTP只会获取服务器最初返回的HTML文本，不会执行任何客户端JavaScript。而你要的value是JS在页面加载后动态设置到input元素上的，原始HTML里根本没有这个属性值，所以getAttribute自然拿不到。

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