没问题！我经常帮人写这类VBA代码，下面给你整理几种常见场景的实现方式，你可以根据自己网页的实际情况调整：

这个方法适合兼容IE的网页，不用额外装工具，直接用VBA自带的对象就行，推荐用后期绑定版本，避免手动添加引用的麻烦：

Sub ClickWebButton_IE()
    Dim ie As Object
    Dim targetButton As Object
    
    ' 创建IE实例并设置可见（调试时方便看操作过程）
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    
    ' 导航到你要操作的网页
    ie.Navigate "https://你的目标网页地址"
    
    ' 必须等页面加载完成再操作，不然会找不到元素
    Do While ie.Busy Or ie.ReadyState <> 4
        DoEvents
    Loop
    
    ' --- 优先用按钮ID查找（ID是唯一的，最可靠）---
    On Error Resume Next ' 防止找不到元素直接报错
    Set targetButton = ie.Document.getElementById("你的按钮ID")
    On Error GoTo 0
    
    ' --- 如果没有ID，试试通过按钮名称查找 ---
    If targetButton Is Nothing Then
        On Error Resume Next
        ' getElementsByName返回的是集合，(0)表示取第一个匹配的按钮
        Set targetButton = ie.Document.getElementsByName("你的按钮名称")(0)
        On Error GoTo 0
    End If
    
    ' --- 还可以通过按钮上的文字查找 ---
    If targetButton Is Nothing Then
        Dim btn As Object
        For Each btn In ie.Document.getElementsByTagName("button")
            ' 替换成按钮上显示的实际文字
            If btn.innerText = "点击提交" Then
                Set targetButton = btn
                Exit For
            End If
        Next btn
    End If
    
    ' --- 最后试试通过类名查找 ---
    If targetButton Is Nothing Then
        On Error Resume Next
        ' getElementsByClassName也是集合，(0)取第一个
        Set targetButton = ie.Document.getElementsByClassName("你的按钮类名")(0)
        On Error GoTo 0
    End If
    
    ' 找到按钮就点击，没找到就提示
    If Not targetButton Is Nothing Then
        targetButton.Click
        ' 点击后如果页面跳转，记得再等加载完成
        Do While ie.Busy Or ie.ReadyState <> 4
            DoEvents
        Loop
    Else
        MsgBox "没找到目标按钮哦，检查一下选择器是否正确！"
    End If
    
    ' 用完可以关闭IE，也可以保留着看结果
    ' ie.Quit
    ' Set ie = Nothing
End Sub

要是你的网页不兼容IE（现在很多网站都不支持了），就用这个方法，需要先做两步准备：

1. 安装Selenium Basic工具
2. 下载对应浏览器的驱动程序（比如Edge的msedgedriver.exe），把驱动放到Selenium安装目录或者系统能识别的路径里

Edge浏览器示例代码 #

Sub ClickWebButton_Selenium()
    Dim driver As Object
    
    ' 创建Edge驱动实例
    Set driver = CreateObject("Selenium.EdgeDriver")
    driver.Visible = True
    
    ' 打开目标网页
    driver.Get "https://你的目标网页地址"
    
    ' --- 几种常用的查找按钮方式 ---
    ' 方式1：通过ID查找（最靠谱）
    ' driver.FindElementById("你的按钮ID").Click
    
    ' 方式2：通过按钮文字的XPath查找（灵活，适合复杂场景）
    ' driver.FindElementByXPath("//button[text()='点击提交']").Click
    
    ' 方式3：通过类名查找
    driver.FindElementByClassName("你的按钮类名").Click
    
    ' 可以加个等待，确保操作完成
    driver.Wait 3000 ' 等待3秒
    
    ' 用完关闭浏览器
    ' driver.Quit
    ' Set driver = Nothing
End Sub

几个重要提醒 #

• 不管用哪种方法，一定要等页面加载完成再操作，不然大概率会报错
• 如果按钮在iframe里，得先切换到iframe才能找到元素：IE里用ie.Document.frames("iframe名称").Document，Selenium里用driver.SwitchToFrame("iframe名称")
• 遇到动态加载的按钮（比如滚动后才出现），可以加个循环等待元素出现，或者用Selenium的显式等待（比固定等待更靠谱）

内容的提问来源于stack exchange，提问作者VBA Newbie