從VBA中的shell命令捕獲輸出值？

Question

發現此功能 http://www.cpearson.com/excel/ShellAndWait.aspx

但也需要從shell輸出捕獲輸出。任何代碼建議？

Answer 1

您可以CreateProcess應用程序將其StdOut重定向到管道，然後直接讀取該管道; http://pastebin.com/CszKUpNS

dim resp as string 
resp = redirect("cmd","/c dir") 
resp = redirect("ipconfig","") 

Answer 2

您總是可以將shell輸出重定向到一個文件，然後從該文件讀取輸出。

Answer 3

Sub StdOutTest() 
    Dim objShell As Object 
    Dim objWshScriptExec As Object 
    Dim objStdOut As Object 
    Dim rline As String 
    Dim strline As String 

    Set objShell = CreateObject("WScript.Shell") 
    Set objWshScriptExec = objShell.Exec("c:\temp\batfile.bat") 
    Set objStdOut = objWshScriptExec.StdOut 

    While Not objStdOut.AtEndOfStream 
     rline = objStdOut.ReadLine 
     If rline <> "" Then strline = strline & vbCrLf & CStr(Now) & ":" & Chr(9) & rline 
     ' you can handle the results as they are written to and subsequently read from the StdOut object 
    Wend 
    MsgBox strline 
    'batfile.bat 
    'ping 1.1.1.1 -n 1 -w 2000 > nul 
    'echo 2 
    'ping 1.1.1.1 -n 1 -w 2000 > nul 
    'echo 4 
    'ping 1.1.1.1 -n 1 -w 2000 > nul 
    'echo 6 
    'ping 1.1.1.1 -n 1 -w 2000 > nul 
    'echo 8 
End Sub 

Answer 4

基於安德魯·萊薩德的答案，這裏的運行命令並返回輸出字符串的函數 -

Public Function ShellRun(sCmd As String) As String 

    'Run a shell command, returning the output as a string 

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

    'run command 
    Dim oExec As Object 
    Dim oOutput As Object 
    Set oExec = oShell.Exec(sCmd) 
    Set oOutput = oExec.StdOut 

    'handle the results as they are written to and read from the StdOut object 
    Dim s As String 
    Dim sLine As String 
    While Not oOutput.AtEndOfStream 
     sLine = oOutput.ReadLine 
     If sLine <> "" Then s = s & sLine & vbCrLf 
    Wend 

    ShellRun = s 

End Function 

用法：

MsgBox ShellRun("dir c:\") 

Answer 5

基於bburns.km's answer，我添加了傳入輸入t（使用StdInput）在調用期間執行到可執行文件。以防有人絆倒這一點，並有相同的需求。

''' <summary> 
''' Executes the given executable in a shell instance and returns the output produced 
''' by it. If iStdInput is given, it is passed to the executable during execution. 
''' Note: You must make sure to correctly enclose the executable path or any given 
'''   arguments in quotes if they contain spaces. 
''' </summary> 
''' <param name="iExecutablePath"> 
''' The full path to the executable (and its parameters). This string is passed to the 
''' shell unaltered, so be sure to enclose paths and parameters containing spaces 
''' in quotes ("). 
''' </param> 
''' <param name="iStdInput"> 
''' The (optional) input to pass to the executable. Default: Null 
''' </param> 
Public Function ExecuteAndReturnStdOutput(ByVal iExecutablePath As String, _ 
             Optional ByVal iStdInput As String = vbNullString) _ 
       As String 

    Dim strResult As String 

    Dim oShell As WshShell 
    Set oShell = New WshShell 

    Dim oExec As WshExec 
    Set oExec = oShell.Exec(iExecutablePath) 

    If iStdInput <> vbNullString Then 
     oExec.StdIn.Write iStdInput 
     oExec.StdIn.Close ' Close input stream to prevent deadlock 
    End If 

    strResult = oExec.StdOut.ReadAll 
    oExec.Terminate 

    ExecuteAndReturnStdOutput = strResult 

End Function 

Note: You will need to add a reference to Windows Script Host Object Model so the types WshShell and WshExec are known.
(To do this go to Extras ->References in the VBA IDE's menu bar.)