使用Selenium VBA自动化Edge浏览器时，如何阻止宏执行End Sub后浏览器自动关闭？

没问题！我经常碰到Selenium VBA里这种浏览器自动关闭的情况，本质是因为当宏执行到End Sub时，VBA会自动销毁局部的Edge驱动实例，导致浏览器跟着关闭。这里有几个实用的解决办法，你可以根据自己的需求选：

方法1：把驱动对象声明为全局变量 #

这是最常用的方案。如果把EdgeDriver的声明放在模块的最顶部（全局作用域），而不是某个Sub内部，那么宏执行完毕后，这个对象不会被VBA自动销毁，浏览器就能一直保持打开状态。

示例代码：

' 放在模块的最顶部，所有Sub外面
Dim driver As EdgeDriver

Sub AutoEdgeDemo()
    ' 先检查驱动是否已初始化，避免重复创建多个浏览器窗口
    If driver Is Nothing Then
        Set driver = New EdgeDriver
    End If
    
    driver.Get "https://www.example.com"
    ' 这里写你的自动化操作代码，比如点击元素、填写表单等
End Sub

之后如果需要手动关闭浏览器，直接调用driver.Quit或者driver.Close就行。

方法2：在宏末尾添加等待逻辑 #

如果不想用全局变量，可以在宏的最后加入一段让程序暂停的代码，阻止VBA立即结束，这样驱动实例就不会被销毁。比如弹出一个提示框，等用户确认后再继续：

示例代码：

Sub AutoEdgeDemo()
    Dim driver As New EdgeDriver
    driver.Get "https://www.example.com"
    ' 你的自动化操作代码...
    
    ' 弹出提示框，用户点击确定后才会继续执行
    MsgBox "自动化操作完成！点击确定后浏览器将保持打开，如需关闭请手动操作", vbInformation
    ' 如果想让用户确认后自动关闭，就加上下面这行
    ' driver.Quit
End Sub

也可以用输入框等待用户输入：

' 另一种暂停方式：等待用户输入任意内容后继续
InputBox("输入任意内容继续（浏览器将保持打开）")

方法3：传递驱动对象引用（多Sub场景） #

如果你的自动化逻辑分散在多个Sub里，确保驱动对象的引用被正确传递，不要让它在某个Sub结束后被销毁。比如在主Sub里创建驱动，然后把它作为参数传给其他子过程：

示例代码：

Sub MainWorkflow()
    Dim driver As EdgeDriver
    Set driver = New EdgeDriver
    driver.Get "https://www.example.com"
    
    ' 调用子过程，把驱动对象传进去
    FillLoginForm driver
    ClickSubmitButton driver
    
    ' 这里不调用Quit，浏览器就会保持打开
End Sub

Sub FillLoginForm(ByRef drv As EdgeDriver)
    ' 填写登录表单的操作
    drv.FindElementByID("username").SendKeys "your_username"
    drv.FindElementByID("password").SendKeys "your_password"
End Sub

Sub ClickSubmitButton(ByRef drv As EdgeDriver)
    drv.FindElementByID("submit-btn").Click
End Sub

小提示 #

如果用全局变量的方案，下次运行宏前一定要检查驱动是否已经存在，不然可能会打开多个Edge窗口，就像方法1里的If driver Is Nothing Then判断那样。

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