如何用Excel VBA在Chrome中打开URL、填充表单并提交？

错误原因说明 #

你的语法错误源于错误使用了FindElementByName方法，Selenium VBA库中并没有这个直接调用的方法，正确的元素定位需要通过By类的定位器（如By.Name、By.Id）配合FindElement方法实现。

完整正确代码实现 #

Sub AutoFillAndSubmit()
    Dim driver As New ChromeDriver
    Dim wait As New WebDriverWait
    
    ' 1. 配置ChromeDriver（若未添加到系统PATH，需指定绝对路径）
    driver.SetCapability "chromeOptions", "executablePath", "C:\你的路径\chromedriver.exe"
    
    ' 2. 启动Chrome并打开目标URL
    driver.Start "chrome"
    driver.Get "https://目标网址.com" ' 替换为实际需要打开的URL
    
    ' 3. 设置等待超时（避免页面未加载完成导致找不到元素）
    Set wait = New WebDriverWait
    wait.Timeout = 12 ' 最长等待12秒
    
    ' 4. 定位输入框并填充数据
    wait.Until(ElementIsVisible(By.Name("trackingId"))).SendKeys "需要填充的跟踪ID" ' 替换为实际内容
    
    ' 5. 定位提交按钮并点击
    wait.Until(ElementIsClickable(By.Id("epm-submit-button-announce"))).Click
    
    ' 可选：操作完成后关闭浏览器
    ' driver.Quit
End Sub

关键注意事项 #

• 依赖环境准备：
  • 先安装SeleniumBasic，然后在VBA编辑器的「工具」→「引用」中勾选「Selenium Type Library」。
  • 下载与你的Chrome浏览器版本完全匹配的ChromeDriver，要么将其放在系统PATH目录下，要么在代码中指定绝对路径。
• 元素等待机制：使用WebDriverWait等待元素可见/可点击，比硬编码Sleep更可靠，能避免页面加载延迟导致的异常。
• 定位器选择：优先使用Id或Name定位元素，这两种方式稳定性更高。

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