使用VBA调用Edge浏览器时遭遇端口监听超时的TimeoutError问题求助

嘿，我来帮你排查这个端口超时的坑！这种情况我之前踩过好几次，咱们一步步来捋：

先修正VBA代码的写法问题 #

你现在的browser.Start参数格式错啦！SeleniumBasic里Start方法的第二个参数是目标网站的基础URL，不是驱动程序的路径。驱动程序只要和SeleniumBasic核心文件在同一个目录（你已经放对位置了），或者在系统Path环境变量里，Selenium会自动找到它，不用手动指定路径。

把代码改成这样试试：

Sub buscarPreco()
  Dim browser As New WebDriver
  ' 只需要指定浏览器类型即可
  browser.Start "edge"
  ' 这里要填完整的网站URL，比如"https://www.baidu.com"，不能只写"/"
  browser.Get "https://www.baidu.com"
  ' 后续的操作代码...
End Sub

再仔细核对驱动和浏览器的版本匹配度 #

虽然你说版本一致，但还是建议再double check：

• 打开Edge，在地址栏输入edge://settings/help确认浏览器版本，要精确到最后一位
• 右键点击edgedriver.exe，选「属性」-「详细信息」，看文件版本是不是和浏览器版本完全一模一样——哪怕差一个小版本号，都可能出现兼容性问题

检查权限和拦截问题 #

1. 试试用管理员身份打开Excel再运行代码，有时候普通用户权限不够，驱动没法正常监听端口
2. 排查杀毒软件/防火墙：有些安全软件会把Selenium驱动当成可疑程序，阻止它监听端口，可以暂时关闭安全软件测试，或者把C:\Users\username\AppData\Local\SeleniumBasic路径加入信任列表

手动测试驱动本身是否正常 #

直接双击edgedriver.exe，观察现象：

• 如果弹出命令行窗口，显示类似「Listening on port xxxxx」的内容，说明驱动本身没问题，问题出在VBA调用环节
• 如果窗口一闪而过或者弹出错误提示（比如“找不到指定模块”），那可能是缺少VC运行库，得安装对应版本的微软VC redistributable包

终极方案：手动指定驱动监听端口 #

如果上面的方法都没用，试试手动指定一个不常用的端口，避免端口被系统其他程序占用：

Sub buscarPreco()
  Dim browser As New WebDriver
  Dim driverOptions As New EdgeOptions
  ' 选一个没被占用的端口，比如55555
  driverOptions.AddArgument "--port=55555"
  browser.Start "edge", "", driverOptions
  browser.Get "https://www.baidu.com"
  ' 后续操作代码...
End Sub

备注：内容来源于stack exchange，提问作者Guadalupe Camara