如何使用VBA登录网站并检索数据到excel中？

Sub LoginAndRetrieveData()
    Dim IE As Object
    Dim doc As Object
    Dim username As Object
    Dim password As Object
    Dim loginBtn As Object
    Dim dataElement As Object
    
    ' 创建Internet Explorer对象
    Set IE = CreateObject("InternetExplorer.Application")
    
    ' 打开目标网站
    IE.Navigate "https://www.example.com/login"
    
    ' 等待网站加载完成
    Do While IE.Busy Or IE.readyState <> 4
        DoEvents
    Loop
    
    ' 获取HTML文档对象
    Set doc = IE.document
    
    ' 获取登录表单元素
    Set username = doc.getElementById("username")
    Set password = doc.getElementById("password")
    Set loginBtn = doc.getElementById("loginButton")
    
    ' 填写用户名和密码
    username.Value = "your_username"
    password.Value = "your_password"
    
    ' 模拟点击登录按钮
    loginBtn.Click
    
    ' 等待登录成功后的页面加载完成
    Do While IE.Busy Or IE.readyState <> 4
        DoEvents
    Loop
    
    ' 导航到包含目标数据的页面
    IE.Navigate "https://www.example.com/data"
    
    ' 等待数据页面加载完成
    Do While IE.Busy Or IE.readyState <> 4
        DoEvents
    Loop
    
    ' 获取数据元素
    Set dataElement = doc.getElementById("dataElement")
    
    ' 将数据存储到Excel中
    ThisWorkbook.Sheets("Sheet1").Range("A1").Value = dataElement.innerText
    
    ' 关闭Internet Explorer对象
    IE.Quit
    
    ' 释放对象变量
    Set dataElement = Nothing
    Set loginBtn = Nothing
    Set password = Nothing
    Set username = Nothing
    Set doc = Nothing
    Set IE = Nothing
End Sub