如何通过VBA SendKeys向外部程序传递%、()等ASCII特殊字符

核心原理 #

VBA的SendKeys方法对部分字符有特殊语义定义：%代表Alt键、^代表Ctrl键、+代表Shift键、()为按键分组标记、~代表回车键、{}为特殊字符转义标记。要将这些字符作为普通文本输入到目标程序，必须将其包裹在大括号{}中转义。

实现步骤 #

1. 新增专用转义函数 #

新增EscapeSendKeysSpecialChars函数，专门处理SendKeys场景的特殊字符转义，不要和清洗不可见字符的逻辑混用：

Function EscapeSendKeysSpecialChars(ByVal inputStr As String) As String
    Dim i As Long
    Dim currentChar As String
    Dim result As String
    
    result = ""
    For i = 1 To Len(inputStr)
        currentChar = Mid(inputStr, i, 1)
        ' 匹配所有SendKeys特殊字符，添加大括号转义
        Select Case currentChar
            Case "%", "^", "+", "(", ")", "~", "{", "}"
                result = result & "{" & currentChar & "}"
            Case Else
                result = result & currentChar
        End Select
    Next i
    EscapeSendKeysSpecialChars = result
End Function

2. 整合现有逻辑 #

你之前找到的CleanTrim函数仅用于清除不可见控制字符，和转义逻辑不冲突，可保留使用。

修改描述清洗环节

' 先清洗不可见字符
JEDescription = CleanTrim(Trim$(Range(cellDescription).Value))
' 不需要再替换括号为空格，后续转义后可正常输出括号
' 移除原有两行Substitute替换括号的代码

修改write_description方法

Private Sub write_Description(arrDetailJE() As DetailJE, i As Integer)
    Dim outputStr As String
    If TF_JE_Line_Description = True Then
        outputStr = EscapeSendKeysSpecialChars(arrDetailJE(i).JE_Line_Description)
    Else
        outputStr = EscapeSendKeysSpecialChars(JEDescription)
    End If
    SendKeys outputStr, True
    Sleep lngSleep
End Sub

优化建议 #

如果你的AP软件支持标准的粘贴操作，更推荐使用剪贴板传递文本，完全规避特殊字符转义、时序不稳定的问题：

' 调用示例：写入剪贴板后发送Ctrl+V粘贴
Sub SendTextByClipboard(text As String)
    Dim dataObj As Object
    Set dataObj = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    dataObj.SetText text
    dataObj.PutInClipboard
    SendKeys "^v", True
    Sleep lngSleep
End Sub

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