如何在Excel VBA中用SendKeys读取单元格内容填入网页输入框

核心说明 #

SendKeys方法的参数就是你要输入到网页元素中的文本内容，直接把Excel单元格的值作为参数传入即可。下面分两种场景给出具体实现：

1. 读取单个单元格的值填充搜索框 #

如果要读取单个单元格（比如A1）的地址值，直接将单元格的Value属性传入SendKeys即可。修改后的代码如下：

Dim obj As New WebDriver

Sub testEdgeAuto_SingleCell()
    ' 启动Edge浏览器并打开Redfin
    obj.Start "edge", ""
    obj.Get "https://www.redfin.com"
    
    ' 读取指定单元格的值，替换为你的工作表和单元格地址
    Dim searchValue As String
    searchValue = ThisWorkbook.Sheets("Sheet1").Range("A1").Value
    
    ' 填入搜索框，可选按回车触发搜索
    obj.FindElementByName("searchInputBox").SendKeys searchValue
    obj.FindElementByName("searchInputBox").SendKeys Keys.Enter ' 按需保留
End Sub

2. 读取单元格区域的值拼接后填充 #

如果要读取单元格区域（比如A1:A5）的多个地址值，先将区域内的非空值拼接成符合搜索格式的字符串（比如用逗号分隔），再传入SendKeys。示例代码：

Dim obj As New WebDriver

Sub testEdgeAuto_Range()
    obj.Start "edge", ""
    obj.Get "https://www.redfin.com"
    
    Dim rng As Range
    Dim cell As Range
    Dim combinedValue As String
    
    ' 定义要读取的单元格区域，替换为你的目标区域
    Set rng = ThisWorkbook.Sheets("Sheet1").Range("A1:A5")
    
    ' 拼接区域内的非空值，用逗号分隔
    For Each cell In rng
        If cell.Value <> "" Then
            combinedValue = combinedValue & cell.Value & ", "
        End If
    Next cell
    
    ' 去除末尾多余的逗号和空格
    If Len(combinedValue) > 2 Then
        combinedValue = Left(combinedValue, Len(combinedValue) - 2)
    End If
    
    ' 填入搜索框并可选触发搜索
    obj.FindElementByName("searchInputBox").SendKeys combinedValue
    obj.FindElementByName("searchInputBox").SendKeys Keys.Enter ' 按需保留
End Sub

注意事项 #

• 确保已正确引用Selenium WebDriver库（VBA编辑器→工具→引用，勾选对应库）
• 单元格中的地址格式尽量符合Redfin的搜索规则，避免无效输入
• 若网页加载较慢，可添加obj.Wait 5000（等待5秒）确保元素加载完成后再操作

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