手动登录Chrome/Edge网页，Excel自动化侧边栏文本录入问题求助

下面提供几个可行的方案，按上手难度排序，你可以根据自己的情况选择：

方案1：用Tab键精准切换焦点（最简单） #

SendKeys本身无法直接定位侧边栏，但可以通过手动测试Tab键切换次数来让焦点跳到侧边栏文本框，步骤如下：

1. 手动打开网页并登录，当前焦点停留在页面主区域
2. 连续按Tab键，数清楚从主区域跳到侧边栏第一个文本框需要多少次Tab
3. 在VBA代码中先发送对应次数的Tab，再开始录入数据

示例代码：

AppActivate ("你的浏览器窗口标题") ' 替换成实际窗口标题
Dim tabCount As Integer
tabCount = 6 ' 替换成你手动测试出的Tab次数

' 先切换到侧边栏第一个文本框
For i = 1 To tabCount
    SendKeys "{Tab}", True
Next i

' 循环录入B2到B10的数据（可修改范围）
Dim cell As Range
For Each cell In Range("B2:B10")
    ' 输入单元格内容
    SendKeys cell.Value, True
    ' 按Tab跳到"下一个"按钮，再按回车触发
    SendKeys "{Tab}", True
    SendKeys "{ENTER}", True
    ' 按Tab回到下一个文本框（如果需要，手动测试是否需要）
    SendKeys "{Tab}", True
    ' 留1秒等待页面加载下一个文本框
    Application.Wait Now + TimeValue("00:00:01")
Next cell

方案2：用Windows API定位控件（更可靠） #

如果Tab键切换不稳定，可以用Windows API直接定位侧边栏的文本框和按钮，需要用到Windows自带的Spy++工具获取控件信息：

1. 打开Spy++（在VS工具集或Windows SDK里，也可以单独下载）
2. 点击"查找窗口"，用瞄准器拖动到侧边栏文本框，记录控件的类名（比如IE/Edge的文本框类名是Edit）和层级关系

示例代码：

' 声明API函数（64位Excel用PtrSafe，32位去掉）
Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Declare PtrSafe Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As LongPtr, ByVal hWnd2 As LongPtr, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPtr
Declare PtrSafe Function SetForegroundWindow Lib "user32" (ByVal hWnd As LongPtr) As Long
Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, lParam As Any) As LongPtr

Const WM_SETTEXT = &HC ' 设置文本的消息
Const BM_CLICK = &HF5 ' 点击按钮的消息

Sub SidebarAutoInput()
    Dim browserHWnd As LongPtr
    Dim sidebarContainerHWnd As LongPtr
    Dim textBoxHWnd As LongPtr
    Dim nextBtnHWnd As LongPtr
    
    ' 获取浏览器窗口句柄
    browserHWnd = FindWindow(vbNullString, "你的浏览器窗口标题")
    If browserHWnd = 0 Then
        MsgBox "找不到浏览器窗口"
        Exit Sub
    End If
    
    ' 找到侧边栏容器（用Spy++获取类名和标题）
    sidebarContainerHWnd = FindWindowEx(browserHWnd, 0, "侧边栏容器类名", "侧边栏标题")
    If sidebarContainerHWnd = 0 Then
        MsgBox "找不到侧边栏容器"
        Exit Sub
    End If
    
    ' 找到第一个文本框
    textBoxHWnd = FindWindowEx(sidebarContainerHWnd, 0, "Edit", vbNullString)
    If textBoxHWnd = 0 Then
        MsgBox "找不到文本框"
        Exit Sub
    End If
    
    ' 循环录入数据
    Dim cell As Range
    For Each cell In Range("B2:B10")
        ' 给文本框设置内容
        SendMessage textBoxHWnd, WM_SETTEXT, 0, ByVal cell.Value
        ' 找到并点击"下一个"按钮
        nextBtnHWnd = FindWindowEx(sidebarContainerHWnd, 0, "Button", "下一个")
        If nextBtnHWnd <> 0 Then
            SendMessage nextBtnHWnd, BM_CLICK, 0, 0
        End If
        ' 等待页面加载下一个文本框
        Application.Wait Now + TimeValue("00:00:01")
        ' 获取下一个文本框的句柄
        textBoxHWnd = FindWindowEx(sidebarContainerHWnd, textBoxHWnd, "Edit", vbNullString)
    Next cell
End Sub

方案3：配合AutoHotkey（新手友好） #

AutoHotkey对窗口控件的操作更灵活，适合不想写复杂API的新手：

1. 下载安装AutoHotkey
2. 编写一个简单的AHK脚本（保存为SidebarInput.ahk）：

; 激活浏览器窗口
WinActivate, 你的浏览器窗口标题

; 快捷键Ctrl+Shift+S：切换到侧边栏第一个文本框
^+s::
    Loop, 6 ; 替换成你测试的Tab次数
        Send {Tab}
    return

3. 在VBA中调用这个脚本并录入数据：

AppActivate ("你的浏览器窗口标题")
' 触发AHK快捷键切换到侧边栏
SendKeys "^+s", True

Dim cell As Range
For Each cell In Range("B2:B10")
    ' 复制单元格内容到剪贴板后粘贴
    Clipboard = cell.Value
    SendKeys "^v", True
    ' 切换到按钮并点击
    SendKeys "{Tab}", True
    SendKeys "{ENTER}", True
    ' 回到下一个文本框
    SendKeys "{Tab}", True
    Application.Wait Now + TimeValue("00:00:01")
Next cell

注意事项 #

• 运行SendKeys或AHK脚本时，不要操作鼠标键盘，避免焦点偏移
• 如果页面加载慢，适当延长Application.Wait的时间
• API方案需要准确获取控件的类名和层级，Spy++是关键工具

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