vba 打开exe程序并在exe程序的指定窗口中粘贴指定位置的文本文件

在VBA（Visual Basic for Applications）中，你可以使用Shell方法来打开一个.exe程序，并利用SendKeys方法将文本粘贴到指定窗口。下面是一个简单的步骤描述：

1. 首先，你需要引入`Microsoft Win32 API Type Library`，以便可以使用`Shell`和`SendKeys`方法。在VBA编辑器中插入以下行：

Option Explicit
Imports Microsoft.Win32

2. 定义要打开的.exe程序路径，以及你要复制的文本文件路径。假设分别是`strExePath`和`strTextFilePath`：

Dim strExePath As String
strExePath = "C:\path\to\your\executable.exe"

Dim strTextFilePath As String
strTextFilePath = "C:\path\to\your\textfile.txt"

3. 使用`Shell`方法打开程序，并设置`vbMinimizedFocus`选项以确保在后台运行而不激活窗口：

Sub OpenAndPaste()
    Dim oShell As Object
    Set oShell = CreateObject("WScript.Shell")
    
    ' 打开.exe程序
    oShell.Run strExePath, vbMinimizedFocus
    
    ' 等待一段时间让程序启动（可根据实际情况调整）
    Application.Wait (Now() + TimeValue("00:00:05"))
    
    ' 创建剪贴板内容
    Open strTextFilePath For Input As #1
    Do While Not EOF(1)
        Line Input #1, strClipboardContent
    Loop
    Close #1
    
    ' 将剪贴板内容发送到指定窗口
    SendKeys strClipboardContent, True ' True 参数表示按Enter键结束输入
End Sub

请注意，这里没有直接指定目标窗口，因为VBA的`SendKeys`方法默认会发送到焦点所在的窗口。如果你知道确切的目标窗口ID或标题，可以使用第三方库如AutoIt或其他的自动化工具来进行更精确的操作。