如何使用Excel vba从javascript/CSS网站选择元素？

Sub SelectElementFromWebsite()
    Dim ie As Object
    Dim html As Object
    Dim element As Object
    
    ' 创建新的Internet Explorer对象
    Set ie = CreateObject("InternetExplorer.Application")
    
    ' 设置IE窗口为不可见（可根据需要设置为可见）
    ie.Visible = False
    
    ' 打开需要访问的网页
    ie.Navigate "https://example.com"
    
    ' 等待页面加载完成
    Do While ie.Busy Or ie.readyState <> 4
        DoEvents
    Loop
    
    ' 获取HTML文档对象
    Set html = ie.document
    
    ' 选择需要的元素（例如，选择第一个div元素）
    Set element = html.getElementsByTagName("div")(0)
    
    ' 在Excel中输出元素的内容（可以根据需要做其他处理）
    Range("A1").Value = element.innerText
    
    ' 关闭IE对象
    ie.Quit
End Sub