如何在不打开浏览器的情况下用VBA向网页文本框提交单元格值

你需要启用Chrome的无头模式（Headless Mode），让ChromeDriver在后台运行，既不会弹出浏览器窗口，也能大幅提升运行效率。以下是修改后的完整代码：

Sub ConnectXL2()
    Dim options As New ChromeOptions
    
    ' 配置无头模式（新版Chrome推荐用--headless=new，旧版可直接用--headless）
    options.AddArgument "--headless=new"
    ' 可选：禁用GPU加速（部分环境可能需要此参数）
    options.AddArgument "--disable-gpu"
    ' 可选：设置窗口大小（无头模式默认窗口较小，适配部分网站布局）
    options.AddArgument "--window-size=1920,1080"
    
    ' 传入配置启动Chrome（后台运行，无可视化窗口）
    bot.Start "Chrome", options
    bot.Get "my url path here"
    
    ' 移除最大化窗口代码（无头模式下该操作无意义）
    ' bot.Window.Maximize
    
    ' 等待页面加载（可根据实际情况调整延迟时长）
    Call delayms(500)

    ' 向页面控件输入Excel单元格数据
    bot.FindElementById("site").SendKeys [A2]
    bot.FindElementById("room").SendKeys [B2]
    bot.FindElementById("device").SendKeys [C2]

    ' 触发提交按钮
    bot.FindElementByXPath("/html/body/div/center/div/table/tbody/tr[5]/td/button").Click

    ' 等待返回结果加载完成
    Call delayms(500)

    ' 将页面返回结果写入Excel单元格
    Range("D2").Value = bot.FindElementById("reply").Value

    bot.Quit
    Set ChromeDriver = Nothing
End Sub

关键修改说明： #

• 新增ChromeOptions对象，通过AddArgument添加--headless=new参数启用无头模式
• 将原bot.Start "Chrome"改为bot.Start "Chrome", options，传入配置好的无头参数
• 删除了bot.Window.Maximize代码（无头模式下无需可视化窗口操作）

额外注意事项： #

1. 版本匹配：务必保证Chrome浏览器版本与ChromeDriver版本完全一致，否则会出现兼容性报错
2. 替换固定延迟：固定时长的delayms不够可靠，推荐使用ChromeDriver的显式等待方法，示例：

   bot.WaitUntil (ElementIsVisible(By.Id("site"))), 10000 ' 等待目标元素出现，超时10秒
   

3. 反爬适配：如果目标网站检测无头模式，可添加模拟正常浏览器的参数，示例：

   options.AddArgument "--user-agent=Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/118.0.0.0 Safari/537.36"
   

内容的提问来源于stack exchange，提问作者Kobus PJ Van Staden