求助：编写宏实现启动外部程序、等待加载后发送Alt+Q指令

你的代码存在几个关键问题：Sleep的调用方式（VBA中Sleep属于Windows API，需提前声明）、SendKeys的语法错误，以及缺少启动目标程序和可靠切换窗口的逻辑。以下是针对你需求的完整解决方案：

步骤1：声明必要的Windows API（可选但更可靠） #

如果需要精准判断程序窗口是否加载完成，可通过API检测窗口状态：

Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
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 LongPtr

步骤2：完整宏代码 #

该宏会启动目标程序，等待其窗口加载完成，切换到窗口后发送Alt+Q指令：

Sub LaunchAndSendKeys()
    Dim programPath As String
    Dim windowHandle As LongPtr
    Dim waitTime As Long
    Dim maxWaitSeconds As Integer
    
    ' 替换为你的目标程序路径（示例：计算器路径为"calc.exe"）
    programPath = "C:\Path\To\Your\TargetProgram.exe"
    maxWaitSeconds = 10 ' 设置程序加载的最大等待时长（秒）
    waitTime = 0
    
    ' 启动目标程序
    Shell programPath, vbNormalFocus
    
    ' 循环检查程序窗口是否加载完成（需替换为目标程序的窗口标题）
    Do While windowHandle = 0 And waitTime < maxWaitSeconds * 1000
        ' 把"目标程序窗口标题"替换为实际程序的窗口标题，比如计算器是"计算器"
        windowHandle = FindWindow(vbNullString, "目标程序窗口标题")
        Sleep 500 ' 每0.5秒检查一次
        waitTime = waitTime + 500
    Loop
    
    ' 找到窗口后，切换到前台并发送按键
    If windowHandle <> 0 Then
        SetForegroundWindow windowHandle ' 将目标窗口置于最前端
        SendKeys "%q", True ' 发送Alt+Q指令（%代表Alt键）
    Else
        MsgBox "程序加载超时或未找到对应窗口！"
    End If
End Sub

关键修正说明 #

• SendKeys语法修正：原代码的转义逻辑错误，Alt键在SendKeys中用%表示，因此Alt+Q直接写%q即可；Alt+F4的正确写法是%{F4}，无需额外引号转义。
• 可靠等待加载：单纯依赖Sleep不可靠，因为不同设备的程序加载速度差异大，用FindWindow循环检测窗口存在性，能确保程序真正就绪后再执行操作。
• 精准窗口切换：使用SetForegroundWindow比Alt+Tab更直接，可精准定位到目标程序窗口，避免切换到其他窗口的风险。

简化版（无需API） #

如果不需要精准检测窗口，也可以用AppActivate结合Sleep实现，可靠性稍弱但代码更简洁：

Sub SimpleLaunchAndSend()
    Dim programID As Double
    
    ' 启动目标程序
    programID = Shell("C:\Path\To\Your\TargetProgram.exe", vbNormalFocus)
    
    ' 等待程序加载（根据实际加载时间调整时长）
    Sleep 2000 ' 等待2秒
    
    ' 切换到目标程序窗口（替换为实际窗口标题）
    On Error Resume Next ' 避免窗口未找到时报错
    AppActivate "目标程序窗口标题"
    On Error GoTo 0
    
    ' 发送Alt+Q指令
    SendKeys "%q", True
End Sub

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