Excel VBA Selenium：如何关闭网页自动化弹出提示框

操作场景 #

批量循环处理PIN号时，执行以下操作会触发检测弹窗：

• 访问基础URL：https://rivcoview.rivcoacr.org/#/Property-Search
• 选择下拉菜单（截图：）
• 在文本框输入PIN号（示例：609542017）
• 点击「GO」按钮

问题说明 #

后台JavaScript检测到自动化操作，触发弹出提示框，需关闭该弹窗。已有Python/Java解决方案，但无法转换为Excel VBA Selenium代码，寻求纯VBA实现方案。

弹窗关闭按钮CSS选择器：#surveyModal > div > div > div.modal-header > button

已尝试代码 #

MyBrowser.SwitchToAlert.Dismiss

Set CloseButton = MyBrowser.FindElementByCss("#surveyModal > div > div > div.modal-header > button").click

可行解决方案 #

方案1：等待模态框元素加载后点击 #

弹窗属于网页模态框而非原生Alert，需等待元素渲染完成后再操作：

' 等待弹窗关闭按钮加载，超时时间10秒（可按需调整）
MyBrowser.Wait 10000, "#surveyModal > div > div > div.modal-header > button"
' 定位并点击关闭按钮
MyBrowser.FindElementByCss("#surveyModal > div > div > div.modal-header > button").Click

方案2：兼容Alert与模态框的处理逻辑 #

若不确定弹窗类型，可同时处理原生Alert和网页模态框：

On Error Resume Next
' 尝试关闭原生Alert（若触发的是Alert弹窗）
MyBrowser.SwitchToAlert.Dismiss
On Error GoTo 0

' 等待并关闭网页模态框
MyBrowser.Wait 5000, "#surveyModal > div > div > div.modal-header > button"
MyBrowser.FindElementByCss("#surveyModal > div > div > div.modal-header > button").Click

补充说明 #

• Wait方法会等待指定元素出现后再继续执行，避免因元素未加载导致的定位失败
• 可根据实际弹窗出现的延迟调整等待时间（单位：毫秒）

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