如何用Excel VBA控制已打开的Edge/Chrome窗口并实现网页数据录入？

Edge完全支持通过Selenium控制已运行的浏览器窗口，且实现方案稳定可靠，完全能满足你手动登录后再自动化录入数据的需求。

核心实现步骤： #

1. 启动带调试模式的Edge：关闭所有Edge窗口，通过命令行启动并开启远程调试端口（以9222为例）：

   start msedge.exe --remote-debugging-port=9222
   

2. 手动登录目标网站：在这个启动的Edge窗口中完成登录操作，确保会话状态保留。
3. VBA中配置Selenium连接已打开的Edge：通过EdgeOptions指定调试端口和用户数据目录，让Selenium连接到已运行的实例。

VBA代码示例： #

Sub AutoFillWebFormFromExcel()
    Dim edgeDriver As EdgeDriver
    Dim edgeOptions As EdgeOptions
    
    Set edgeOptions = New EdgeOptions
    ' 指定调试端口，与启动Edge时的端口一致
    edgeOptions.AddArgument "--remote-debugging-port=9222"
    ' 指定Edge用户数据目录，确保登录状态被加载（替换为你的实际路径）
    edgeOptions.AddArgument "user-data-dir=C:\Users\YourUsername\AppData\Local\Microsoft\Edge\User Data"
    
    ' 初始化驱动，连接已运行的Edge实例
    Set edgeDriver = New EdgeDriver(edgeOptions)
    
    ' 定位网页输入框并填入Excel数据（示例，需替换为目标网页的元素定位符）
    edgeDriver.FindElementById("usernameInput").SendKeys ThisWorkbook.Sheets("Data").Range("A2").Value
    edgeDriver.FindElementByXPath("//input[@name='email']").SendKeys ThisWorkbook.Sheets("Data").Range("B2").Value
    
    ' 点击提交按钮（示例）
    edgeDriver.FindElementByCssSelector("#submitBtn").Click
    
    ' 后续操作...
    
    ' 关闭驱动（可选，若需保留浏览器窗口可注释此句）
    ' edgeDriver.Quit
End Sub

关键注意事项： #

• 确保EdgeDriver版本与你的Edge浏览器版本完全匹配，否则会出现兼容性错误。
• 命令行启动Edge时，必须使用你日常登录网站的用户数据目录，否则Selenium连接后无法读取已有的登录会话。
• 放弃使用SendKeys和AppActivate这类不可靠的模拟操作，直接用Selenium提供的元素定位方法（ID、XPath、CSS选择器等），能大幅提升操作稳定性和成功率。

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