Selenium VBA复制Excel单元格内容至谷歌搜索框失败求助

问题原因分析 #

• 直接依赖剪贴板粘贴时，可能存在剪贴板未就绪的情况，复制后立即执行粘贴命令会失效。
• 单独创建Keys对象的方式有误，Selenium的ChromeDriver实例已自带Keys属性，无需通过CreateObject创建。
• 谷歌搜索框的前端逻辑可能对剪贴板粘贴有拦截，相比之下直接发送文本内容更稳定。

解决方案 #

方案1：直接读取单元格内容发送（推荐） #

跳过剪贴板，直接读取Excel单元格内容并拼接后发送到搜索框，避免剪贴板相关问题：

Global bot As New ChromeDriver, post As Object
Public MyElement As selenium.WebElement

Sub copyPasteintoGoogleSearchBar()
    Dim searchText As String
    Dim cell As Range
    
    ' 读取A2:L2内容，用空格分隔（可根据需求调整分隔符）
    searchText = ""
    For Each cell In Range("A2:L2")
        If cell.Value <> "" Then
            searchText = searchText & cell.Value & " "
        End If
    Next cell
    searchText = Trim(searchText) ' 去除末尾多余空格
    
    loginAndGoToTesting
    
    With bot
        Dim searchBox As selenium.WebElement
        Set searchBox = .FindElementByName("q")
        searchBox.Click ' 激活搜索框
        searchBox.SendKeys searchText ' 直接发送文本
    End With
End Sub

Function loginAndGoToTesting()
    With bot
        .Timeouts.ImplicitWait = 1000
        ' .AddArgument "--headless"
        .Start
        .get "https://www.google.com/"
        bot.Window.Maximize
        ' 无需重复刷新，页面加载后直接操作即可
    End With
End Function

方案2：修复剪贴板粘贴逻辑 #

如果必须使用剪贴板，需确保剪贴板就绪并正确使用Keys：

Global bot As New ChromeDriver, post As Object
Public MyElement As selenium.WebElement

Sub copyPasteintoGoogleSearchBar()
    loginAndGoToTesting
    
    With bot
        Range("A2:L2").Copy
        Application.Wait Now + TimeValue("00:00:01") ' 等待剪贴板写入完成
        
        Dim searchBox As selenium.WebElement
        Set searchBox = .FindElementByName("q")
        searchBox.Click ' 激活搜索框
        searchBox.SendKeys bot.Keys.Control & "v" ' 使用bot自带的Keys属性
    End With
End Sub

Function loginAndGoToTesting()
    With bot
        .Timeouts.ImplicitWait = 1000
        ' .AddArgument "--headless"
        .Start
        .get "https://www.google.com/"
        bot.Window.Maximize
    End With
End Function

额外说明 #

• Selenium不支持直接操作浏览器右键菜单（属于原生系统控件，非网页元素），因此尽量避免依赖右键操作实现需求。
• 方案1的稳定性更高，不受剪贴板状态和网页拦截逻辑的影响，优先推荐使用。

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