vba复制文本文档到指定exe程序的窗口

在VBA (Visual Basic for Applications) 中，你可以通过自动化操作来复制文本文档的内容并粘贴到另一个程序（如exe应用程序的窗口）中。这通常涉及到使用Windows API函数来模拟用户交互，例如`SendKeys`、`CreateObject`以及`ShellExecute`等。

以下是一个简单的示例代码片段，它首先打开文本文件，然后将其内容复制到剪贴板，最后将剪贴板的内容粘贴到指定的.exe程序窗口：

Sub CopyToExeWindow()
    Dim txtFile As String ' 文本文件路径
    Dim exeApp As Object ' 目标exe程序的对象
    Dim hWnd As Long ' 目标窗口句柄
    
    ' 设置文本文件路径
    txtFile = "C:\path\to\your\textfile.txt"
    
    ' 打开文本文件并读取内容
    Open txtFile For Input As #1
    Dim content As String
    Do While Not EOF(1)
        Line Input #1, content
    Loop
    Close #1
    
    ' 将内容复制到剪贴板
    Windows("Clipboard").SetData "Text", content
    
    ' 指定目标.exe程序的全路径和窗口标题
    exeApp = CreateObject("WScript.Shell")
    Set hWnd = FindWindow("ProgID_of_exe_app", "Your Exe Window Title") ' 替换为实际的窗体类名或标题

    ' 如果找到窗口，则尝试粘贴
    If hWnd <> 0 Then
        SendKeys "^V" ' 使用Ctrl+V快捷键模拟粘贴
        Sleep 500 ' 等待片刻让粘贴完成
    Else
        MsgBox "Target window not found."
    End If

End Sub

注意，你需要替换上述代码中的`txtFile`变量为你要复制的文本文件路径，`ProgID_of_exe_app`为你要操作的.exe程序的ActiveX控件的Progid（如果有的话），`"Your Exe Window Title"`为目标窗口的标题。