无法获取元素内容：Excel VBA获取网页元素内容失败求助

核心问题分析 #

你的代码存在两个关键问题：

1. 未加载HTTP响应内容到HTML文档对象：你用XMLHTTP60请求了网页，但没有把返回的响应文本赋值给HTMLDoc，导致HTMLDoc是空的，自然找不到任何元素。
2. 静态请求无法获取动态渲染内容：Google Finance的股价等内容是通过JavaScript动态渲染的，XMLHTTP只能获取初始的静态HTML源码，其中可能不包含目标元素YMlKec fxKbKc。

修正方案1：修复静态请求代码（仅适用于静态内容） #

先补上加载响应的步骤，修改后的代码如下：

Option Explicit
Dim XMLPage As New MSXML2.XMLHTTP60
Dim HTMLDoc As New MSHTML.HTMLDocument

Sub Test1()
    Dim URL As String, PriceNSE As Object
    URL = "https://www.google.com/finance/quote/TATAMOTORS:NSE"

    With XMLPage
        .Open "GET", URL, False
        .send
        ' 关键：将响应内容加载到HTMLDoc
        HTMLDoc.body.innerHTML = .responseText
    End With

    ' 尝试获取元素
    On Error Resume Next
    Set PriceNSE = HTMLDoc.getElementsByClassName("YMlKec fxKbKc")(0)
    On Error GoTo 0
    
    If Not PriceNSE Is Nothing Then
        Debug.Print PriceNSE.innerText
    Else
        Debug.Print "未找到目标元素，可能是动态渲染内容"
    End If
End Sub

修正方案2：使用浏览器自动化获取动态内容 #

由于Google Finance的内容是动态生成的，推荐用Internet Explorer（需启用IE对象库）来模拟浏览器加载页面，等待JS渲染完成后再获取元素：

Option Explicit
Sub GetDynamicPrice()
    Dim IE As Object
    Dim PriceNSE As Object
    Dim URL As String
    
    URL = "https://www.google.com/finance/quote/TATAMOTORS:NSE"
    
    ' 创建IE对象
    Set IE = CreateObject("InternetExplorer.Application")
    With IE
        .Visible = True ' 设为False可后台运行
        .Navigate URL
        
        ' 等待页面加载完成
        Do While .Busy Or .ReadyState <> 4
            DoEvents
        Loop
        
        ' 等待JS渲染（额外延迟，可根据情况调整）
        Application.Wait Now + TimeValue("00:00:02")
        
        ' 获取目标元素
        On Error Resume Next
        Set PriceNSE = .Document.getElementsByClassName("YMlKec fxKbKc")(0)
        On Error GoTo 0
        
        If Not PriceNSE Is Nothing Then
            Debug.Print "当前股价：" & PriceNSE.innerText
        Else
            Debug.Print "未找到目标元素"
        End If
        
        .Quit
    End With
    Set IE = Nothing
End Sub

注意事项 #

• 使用IE方案需确保Microsoft Internet Controls库已启用：打开VBA编辑器 → 工具 → 引用 → 勾选该库。
• 若IE兼容性有问题，也可以考虑使用Selenium Basic来控制Chrome/Firefox，但需要额外安装驱动。

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