如何在VBA中获取java脚本标记中的值

Sub GetJavaScriptValue()
    Dim ie As Object
    Dim htmlDoc As Object
    Dim javaScriptValue As String
    
    ' 创建一个新的Internet Explorer对象
    Set ie = CreateObject("InternetExplorer.Application")
    
    ' 设置IE对象的属性
    With ie
        .Visible = False ' 设置为不可见
        .navigate "http://example.com" ' 替换为包含Java脚本标记的网页URL
        ' 等待页面加载完成
        Do While .Busy Or .readyState <> 4
            DoEvents
        Loop
        ' 获取HTML文档对象
        Set htmlDoc = .document
    End With
    
    ' 使用HTML文档对象获取Java脚本标记中的值
    javaScriptValue = htmlDoc.parentWindow.document.getElementById("yourElementId").Value
    ' 替换"yourElementId"为实际的Java脚本标记元素的ID
    
    ' 关闭Internet Explorer对象
    ie.Quit
    
    ' 输出获取到的Java脚本标记中的值
    MsgBox javaScriptValue
End Sub