如何使用excel vba提取网页java脚本值

Sub ExtractJavaScriptValue()
    Dim IE As Object
    Dim HTMLDoc As Object
    Dim ScriptElement As Object
    Dim JavaScriptValue As String
    
    ' 创建Internet Explorer对象
    Set IE = CreateObject("InternetExplorer.Application")
    
    ' 设置IE对象的属性
    With IE
        .Visible = False ' 设置为不可见，以便在后台运行
        .navigate "https://example.com" ' 替换为目标网页的URL
        ' 等待页面加载完成
        Do While .Busy Or .readyState <> 4
            DoEvents
        Loop
        ' 获取网页的HTML文档对象
        Set HTMLDoc = .document
    End With
    
    ' 在HTML文档中查找目标脚本元素
    Set ScriptElement = HTMLDoc.getElementById("script_id") ' 替换为目标脚本元素的ID
    
    ' 提取脚本元素的值
    If Not ScriptElement Is Nothing Then
        JavaScriptValue = ScriptElement.Value
        ' 在Excel单元格中显示提取的值
        Range("A1").Value = JavaScriptValue
    End If
    
    ' 关闭Internet Explorer对象
    IE.Quit
    
    ' 释放对象变量
    Set ScriptElement = Nothing
    Set HTMLDoc = Nothing
    Set IE = Nothing
End Sub