在VBA excel中打开.exe并在输入窗口中写入

Sub OpenExeAndWriteInput()
    Dim exePath As String
    Dim inputText As String
    
    ' 设置可执行文件路径
    exePath = "C:\path\to\your\executable.exe"
    
    ' 设置要输入的文本
    inputText = "Hello, World!"
    
    ' 使用Shell函数打开可执行文件
    Shell exePath, vbNormalFocus
    
    ' 等待一段时间，确保可执行文件已经打开
    Application.Wait Now + TimeValue("00:00:02")
    
    ' 使用SendKeys函数模拟键盘输入
    SendKeys inputText, True
    
    ' 模拟按下回车键
    SendKeys "{ENTER}", True
End Sub