Excel VBA 单次点击单元格调用外部程序需双击触发问题求助

问题根源 #

异常由你代码中PeekMessage消息判断逻辑的不稳定导致：

• 注释Call Spark时，事件执行速度快，调用PeekMessage刚好能捕获到鼠标点击产生的WM_MOUSEMOVE（消息值512），逻辑可以正常触发
• 启用Call Spark后，Shell调用会让系统向Excel消息队列插入大量窗口调度消息，此时调用PeekMessage拿到的第一条消息不再是512，导致判断条件不触发，只有双击时消息队列状态刚好匹配才会执行逻辑

解决方案 #

方案1（最稳定，适配绝大多数场景） #

直接移除PeekMessage相关的API、结构体定义和消息判断逻辑，Worksheet_SelectionChange本身就会在单元格被选中（含鼠标单击、键盘切换选中）时触发，仅需加个单单元格校验避免选中多单元格时报错即可，修改后完整代码如下：

Option Explicit
 
Public stAppName As String
Public stockcode As String
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 仅选中单个单元格时触发逻辑，不需要可删除
    If Target.CountLarge <> 1 Then Exit Sub
    ' 可以补充列/行范围判断，比如仅处理A列的股票代码单元格，按需调整
    ' If Target.Column <> 1 Then Exit Sub
    
    Debug.Print "选中单元格: " & Target.Address, Target.Value
    stockcode = Target.Value
    Call Spark
End Sub

Sub Spark()
    Debug.Print "Spark调用: " & Selection.Address, Selection.Value
    ' 路径含空格建议套双引号，避免Shell调用报错
    stAppName = """C:\Users\JCM\Desktop\AUTOIT\Spark test 10 first working.exe"" " & stockcode
    Call Shell(stAppName, 1)
End Sub

该方案下只要单击选中单元格就会直接触发外部程序调用，无需双击。

方案2（必须严格区分鼠标点击/键盘选中时使用） #

如果确实需要只响应鼠标点击选中的场景，换用更稳定的鼠标按键状态判断逻辑，不要从消息队列取消息：

Option Explicit
 
Public stAppName As String
Public stockcode As String
' 新增API声明
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Const VK_LBUTTON = &H1
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.CountLarge <> 1 Then Exit Sub
    ' 判断是否为鼠标左键点击触发的选中
    If GetAsyncKeyState(VK_LBUTTON) < 0 Then
        Debug.Print "鼠标点击单元格: " & Target.Address, Target.Value
        stockcode = Target.Value
        Call Spark
    End If
End Sub

Sub Spark()
    Debug.Print "Spark调用: " & Selection.Address, Selection.Value
    stAppName = """C:\Users\JCM\Desktop\AUTOIT\Spark test 10 first working.exe"" " & stockcode
    Call Shell(stAppName, 1)
End Sub

该判断逻辑不受Shell调用的消息队列干扰，触发稳定性远高于原PeekMessage方案。

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