vba控制exe打开并在exe指定窗口中输入文本文件内容

在VBA中，你可以使用`CreateObject`函数以及`.SendKeys`方法来控制外部.EXE程序并将其窗口作为命令提示符般交互。下面是基本的步骤：

1. **创建对象**：首先，创建一个`WScript.Shell`对象，这个对象允许我们执行操作系统级别的命令。

Dim objShell As Object
Set objShell = CreateObject("WScript.Shell")

2. **启动.exe文件**：使用`.Run`方法来启动指定的EXE文件，同时可以传递参数到特定的窗口，例如窗口标题：

objShell.Run "F:\your_program.exe /commandline_arg", 1, True ' 替换为你的EXE路径和窗口标题

这里的第三个参数True表示保留程序的焦点。

3. **向窗口输入文本**：使用`.SendKeys`方法，将文本内容逐字符发送到活动窗口。注意，这假定你的应用程序有一个文本框或其他可以接收键盘输入的元素。例如，输入文件内容：

' 假设你有一个名为"inputBox"的文本文件，读取其内容
Dim inputFileContent As String
openFile = OpenTextFile("F:\inputBox.txt", ForReading)
inputFileContent = Input$(LOF(openFile), openFile)
Close #openFile

' 将文本按行发送
For Each line In Split(inputFileContent, vbCrLf)
    objShell.SendKeys "{ENTER}" ' 发送回车键开始新的一行
    objShell.SendKeys line ' 发送每一行的文本
Next line

这会按行将`inputBox.txt`的内容插入到指定的窗口。

请注意，`{ENTER}`是键盘按键的虚拟码，`SendKeys`需要它来识别换行。