如何在VBA程序中运行JavaScript

Sub RunJavaScript()
    Dim ie As Object
    Set ie = CreateObject("InternetExplorer.Application")
    
    ' 设置WebBrowser控件为不可见
    ie.Visible = False
    
    ' 加载一个空白页面
    ie.Navigate "about:blank"
    
    ' 等待页面加载完成
    Do While ie.Busy Or ie.ReadyState <> 4
        DoEvents
    Loop
    
    ' 执行JavaScript代码
    ie.Document.parentWindow.execScript "alert('Hello, World!');"
    
    ' 关闭WebBrowser控件
    ie.Quit
    Set ie = Nothing
End Sub