如何使用VBA点击网站上的按钮？

Sub ClickWebsiteButton()
    Dim IE As Object
    Dim btn As Object
    
    ' 创建Internet Explorer对象
    Set IE = CreateObject("InternetExplorer.Application")
    
    ' 打开网站
    IE.Navigate "https://www.example.com"
    
    ' 等待网站加载完成
    Do While IE.Busy Or IE.readyState <> 4
        DoEvents
    Loop
    
    ' 获取按钮对象
    Set btn = IE.Document.getElementById("buttonId")
    
    ' 点击按钮
    btn.Click
    
    ' 关闭Internet Explorer对象
    IE.Quit
End Sub