vba如何获取Shell执行程序的外部输出？或者如何将外部程序的执行结果重定向到一个文件？

脚本里只能用FSO（Filesy System Object） *** 作文件，要重定向的话，需要以命令行形式执行脚本并在命令行里指定要重定向到的文件。

命令行方式如下：cscript 脚本名称 >>"D:\Program Files\diffcount\myresult.txt"

脚本里直接写入文件的方式（FSO）：

只有用Exec执行命令，才能获取输出流并写入文件。

Const ForWriting = 2

resultfile = "D:\Program Files\diffcount\myresult.txt"

Set fso = CreateObject("Scripting.FileSystemObject")

Set myfile = fso.OpenTextFile(resultfile, ForWriting, True)

Set WshShell = WScript.CreateObject("WScript.Shell")

Set oExec = WshShell.Exec(shell_cmd)

Set oStdOut = oExec.StdOut

Do Until oStdOut.AtEndOfStream

myfile.WriteLine oStdOut.ReadLine

Loop

myfile.Close

1、解压缩后打开pronest安装文件，运行其中的“ProNest11_00_03.exe”。2、进入以后，需要用户安装一些必要项目，点击安装开始安装pronest2015必要的项目。3、然后开始安装pronest2015的软件，点击下一步开始进入安装。4、接受协议后，输入自己的信息，不想输入的用户也可以默认。5、选择pronest2015安装路径，以后可能会安装一些插件之类的东西，建议安装在其他盘符。6、接下来都是点击下一步，然后开始安装。7、完成

你可以调用subprocess的方法，获取stdout，然后将其append到textedit中；

你也可以将你的外部程序输出到文本，然后读取文件，将读取的结果放到textedit。

---