Excel 365中AppActivate/SendKeys运行时错误无法捕获，如何让错误处理生效？

首先，原代码的错误处理逻辑存在结构问题：On Error GoTo CheckActivated 后直接跳转到执行语句的标签，不符合错误处理的正确流程——错误处理标签应在错误发生时才触发跳转，而非一开始就执行。这是错误无法被正确捕获的核心原因之一。

针对你的问题，以下是可行的解决方案：

一、修正错误处理逻辑，增加重试机制 #

手动拖箭头重试能正常运行，说明问题多是窗口激活时机未到位导致的临时错误。通过循环重试+正确的错误捕获可解决：

Sub ActivateAndSendKeys()
    Dim retryCount As Integer
    Const MAX_RETRIES As Integer = 3 ' 设置最大重试次数
    
    retryCount = 0
RetryLoop:
    On Error Resume Next ' 临时开启错误忽略
    AppActivate "Book1 - Excel" ' Excel 365窗口标题通常带" - Excel"后缀
    SendKeys "%F", True
    On Error GoTo 0 ' 关闭错误忽略
    
    ' 检查是否触发错误
    If Err.Number = 17 Then
        retryCount = retryCount + 1
        If retryCount <= MAX_RETRIES Then
            DoEvents ' 释放系统资源，等待窗口就绪
            Sleep 500 ' 等待500毫秒，可按需调整时长
            GoTo RetryLoop
        Else
            MsgBox "多次重试后仍无法执行操作", vbCritical
        End If
    End If
End Sub

二、使用API更可靠地激活窗口（推荐） #

依赖窗口标题的AppActivate稳定性较差，尤其是Excel 365可能修改窗口标题格式。通过Windows API直接查找Excel窗口句柄，能大幅提升激活可靠性：

Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Declare PtrSafe Function SetForegroundWindow Lib "user32" (ByVal hWnd As LongPtr) As Long

Sub ReliableActivateAndSend()
    Dim xlWindowHandle As LongPtr
    Dim retryCount As Integer
    Const MAX_RETRIES As Integer = 3
    
    retryCount = 0
Retry:
    ' 查找Excel窗口，窗口类名固定为"XLMAIN"
    xlWindowHandle = FindWindow("XLMAIN", "Book1 - Excel")
    If xlWindowHandle <> 0 Then
        SetForegroundWindow xlWindowHandle ' 激活窗口
        DoEvents
        On Error Resume Next
        SendKeys "%F", True
        On Error GoTo 0
        
        If Err.Number = 17 Then
            retryCount = retryCount + 1
            If retryCount <= MAX_RETRIES Then
                Sleep 500
                GoTo Retry
            End If
        End If
    Else
        MsgBox "未找到目标窗口", vbExclamation
    End If
End Sub

关键注意事项 #

• Excel 365的窗口标题通常为"工作簿名 - Excel"，而非仅工作簿名，原代码的AppActivate "Book1"可能因标题不匹配导致激活失败，进而触发SendKeys错误。
• SendKeys本身稳定性差，仅在无替代方案时使用。若要打开Excel的文件菜单，更推荐原生VBA方法：Application.CommandBars("File").ShowPopup，完全规避SendKeys的问题。

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