单击来自VBA代码的IE页面中的按钮

Sub ClickButtonOnIEPage()
    Dim IE As Object
    Dim button As Object
    
    ' 创建Internet Explorer对象
    Set IE = CreateObject("InternetExplorer.Application")
    
    ' 设置IE窗口为可见
    IE.Visible = True
    
    ' 打开指定网页
    IE.Navigate "https://www.example.com"
    
    ' 等待页面加载完成
    Do While IE.Busy
        Application.Wait DateAdd("s", 1, Now)
    Loop
    
    ' 获取按钮元素
    Set button = IE.Document.getElementById("button_id")
    
    ' 单击按钮
    button.Click
    
    ' 关闭IE窗口
    IE.Quit
    
    ' 释放对象
    Set button = Nothing
    Set IE = Nothing
End Sub