VBA提取网页动态时间文本失败，现有代码无效求解决办法

看起来你遇到的核心问题有两个：一是代码里的语法/调用错误，二是这个时间是通过JavaScript动态写入DOM的，普通的静态HTML解析可能拿不到最终渲染后的内容。我来一步步帮你解决：

首先，修正你代码里的明显错误 #

你之前的代码有两个关键问题：

• 变量名不匹配：你定义了MDate，但后面用了Match_Date.innerText，这会直接报错或者返回空值；
• 错误调用getElementById：getElementById是document对象的方法，不能在getElementsByClassName返回的元素上调用——因为ID在页面里是唯一的，直接从document层面获取效率更高，不需要先找class。

方法1：用IE浏览器对象（推荐，能处理动态JS内容） #

如果你可以用IE对象（它会自动执行页面里的JavaScript，渲染出最终的DOM），那直接通过ID获取元素就可以拿到时间：

Sub GetDynamicTime()
    Dim IE As Object
    Set IE = CreateObject("InternetExplorer.Application")
    
    IE.Visible = False ' 设为True可以看到浏览器窗口，方便调试
    IE.Navigate "你的目标网页URL" ' 替换成实际的网页地址
    
    ' 等待页面完全加载（包括JS执行完成）
    Do While IE.Busy Or IE.ReadyState <> 4
        DoEvents
    Loop
    
    ' 直接通过ID获取目标元素
    Dim MDate As Object
    Set MDate = IE.Document.getElementById("lastRefreshTime")
    
    ' 提取时间文本
    Dim MDate1 As String
    MDate1 = MDate.innerText
    
    MsgBox "提取到的时间：" & MDate1
    
    ' 关闭IE并释放对象
    IE.Quit
    Set IE = Nothing
End Sub

这个方法的优势是不管时间是JS动态生成还是静态写死的，都能正确拿到最终显示的内容，兼容性最好。

方法2：解析静态HTML里的JS代码（无需打开浏览器） #

如果你不想用IE，只想通过XMLHTTP获取静态源码，那可以直接从页面里的JavaScript代码中提取时间——因为你提供的JS代码里直接写死了时间字符串。我们可以用正则表达式来匹配：

Sub ExtractTimeFromJS()
    Dim xmlHttp As Object
    Set xmlHttp = CreateObject("MSXML2.XMLHTTP")
    
    xmlHttp.Open "GET", "你的目标网页URL", False
    xmlHttp.send
    
    Dim htmlContent As String
    htmlContent = xmlHttp.responseText
    
    ' 用正则匹配JS里的时间格式
    Dim regEx As Object
    Set regEx = CreateObject("VBScript.RegExp")
    regEx.Pattern = "document.getElementById\('lastRefreshTime'\).innerHTML = '([\d/ ]+)'"
    regEx.IgnoreCase = True
    
    Dim matches As Object
    Set matches = regEx.Execute(htmlContent)
    
    If matches.Count > 0 Then
        Dim MDate1 As String
        MDate1 = matches(0).SubMatches(0)
        MsgBox "提取到的时间：" & MDate1
    Else
        MsgBox "未找到目标时间"
    End If
    
    ' 释放对象
    Set xmlHttp = Nothing
    Set regEx = Nothing
End Sub

注意：这个方法依赖页面里的JS代码格式，如果后续网页的JS写法变了（比如用了模板字符串、或者时间是通过变量传入的），正则就会失效，所以只适合JS代码固定的场景。

为什么你之前的代码只返回"Refreshed at:"？ #

因为你获取的是label.wtext元素的innerText，它包含了文本"Refreshed at:"和里面的span元素，而静态HTML里的span初始是空的（时间是JS后来加上的），如果你用XMLHTTP获取静态源码，自然只能拿到初始的文本内容。只有用能执行JS的浏览器对象，才能拿到渲染后的完整内容。

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