如何在登录后使用VBA点击网页中的按钮？

Sub ClickWebButton()
    Dim ie As Object
    Dim btn As Object
    
    ' 创建Internet Explorer对象
    Set ie = CreateObject("InternetExplorer.Application")
    
    ' 设置IE窗口为可见
    ie.Visible = True
    
    ' 打开目标网页
    ie.Navigate "https://www.example.com/login"
    
    ' 等待网页加载完成
    Do While ie.Busy Or ie.readyState <> 4
        DoEvents
    Loop
    
    ' 获取按钮对象
    Set btn = ie.document.getElementById("buttonId")
    
    ' 点击按钮
    btn.Click
    
    ' 关闭IE对象
    ie.Quit
End Sub