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

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

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

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

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

Const ForWriting = 2

resultfile = "D:\Program Files\diffcount\myresulttxt"

Set fso = CreateObject("ScriptingFileSystemObject")

Set myfile = fsoOpenTextFile(resultfile, ForWriting, True)

Set WshShell = WScriptCreateObject("WScriptShell")

Set oExec = WshShellExec(shell_cmd)

Set oStdOut = oExecStdOut

Do Until oStdOutAtEndOfStream

myfileWriteLine oStdOutReadLine

Loop

myfileClose

你的代码开头加上sub没有问题，建议截个图

Sub a()

Dim W As Single

Dim P As Single

W = 685

If W <= 50 Then

P = W  4

Else

P = W  2

End If

      

End Sub

以上就是关于vba如何获取Shell执行程序的外部输出或者如何将外部程序的执行结果重定向到一个文件全部的内容，包括:vba如何获取Shell执行程序的外部输出或者如何将外部程序的执行结果重定向到一个文件、VBA显示无效外部过程该怎么弄呢、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！