如何让Excel工作簿/工作表获得焦点？条码扫描场景焦点恢复需求

核心问题分析 #

你尝试的常规VBA方法（AppActivate、Sheets.Activate、Range.Select等）仅能在Excel内部切换焦点，当Excel窗口被其他程序完全抢占系统焦点时，这些方法无法将Excel窗口带到系统前台（即你描述的图标未灰化状态），因此条码扫描的输入无法被接收。

可行实现方案 #

通过调用Windows API强制将Excel窗口设为系统前台，再结合OnTime定时执行，确保工作簿持续处于可接收输入的状态。

步骤1：添加API声明（标准模块） #

打开VBA编辑器，插入一个新的标准模块，粘贴以下代码：

Option Explicit

' 声明Windows API函数
Private Declare PtrSafe Function SetForegroundWindow Lib "user32.dll" (ByVal hwnd As LongPtr) As Boolean

' 强制激活Excel窗口并定位到目标单元格
Sub RestoreExcelFocus()
    Dim excelHwnd As LongPtr
    ' 获取Excel主窗口句柄（比按标题查找更可靠）
    excelHwnd = Application.hwnd
    
    ' 强制将Excel窗口设为前台
    SetForegroundWindow excelHwnd
    
    ' 激活目标工作表和单元格
    ThisWorkbook.Worksheets("Sheet1").Activate
    ThisWorkbook.Worksheets("Sheet1").Range("A1").Select
    
    ' 设置下一次执行的定时器（这里设为30秒，可自行调整）
    Application.OnTime Now + TimeValue("00:00:30"), "RestoreExcelFocus"
End Sub

' 停止定时器的子程序（需要时调用）
Sub StopFocusTimer()
    On Error Resume Next
    Application.OnTime Now + TimeValue("00:00:30"), "RestoreExcelFocus", , False
End Sub

步骤2：启动定时器 #

在ThisWorkbook模块中添加代码，实现工作簿打开时自动启动定时器：

Private Sub Workbook_Open()
    ' 首次执行激活
    RestoreExcelFocus
End Sub

关键说明 #

1. API的可靠性：SetForegroundWindow直接调用系统接口，能强制将窗口带到前台，不受其他程序干扰，解决常规VBA方法的局限性。
2. 句柄获取：使用Application.hwnd获取Excel主窗口的句柄，比通过窗口标题查找更稳定（避免工作簿修改后标题带*导致匹配失败）。
3. 定时逻辑：每次执行RestoreExcelFocus后会自动设置下一次执行，实现循环定时检查。若需要停止，执行StopFocusTimer即可。

为什么之前的方法无效？ #

• AppActivate依赖窗口标题，当工作簿修改后标题末尾会添加*，导致匹配失败；且仅当窗口处于最小化/非前台时可能生效，无法强制抢占系统焦点。
• Sheets.Activate/Range.Select仅在Excel内部切换激活状态，不会改变Excel窗口在系统中的层级，因此窗口仍会处于灰化状态。
• SendKeys依赖当前焦点状态，若Excel未在前台，按键会发送到当前焦点程序，而非Excel。

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