返回一個PowerShell命令的Excel單元格

Question

我想創建一些按鈕的代碼來將PowerShell命令的一部分返回給目標單元格。我只想要狀態的前兩個字符（「Ru」用於運行或「ST」用於停止）進入單元格。

的PowerShell命令我想使用的是：

PS C:\Windows\System32\WindowsPowerShell\v1.0> get-service -Name browser 

Status Name    DisplayName 
------ ----    ----------- 
Running browser   Computer Browser 

我不知道我怎麼能解析返回值得到公正的2個字符。 我已經開始使用此代碼：

Sub Button2_Click() 
Dim retval As String 
retval = Shell("C:\Windows\System32\WindowsPowerShell\v1.0> 'get-service' -Name browser") 
End Sub 

我得到一個運行時錯誤「file not found」，所以我至少是猜測我的語法不正確。

Answer 1

您的外殼命令損壞，您傳遞提示而不是可執行文件的路徑。目前無法測試，但這應該工作：

Sub Button2_Click() 
    Dim retval As String 
    retval = Left(Shell("powershell -command '(get-service -Name browser).Status'"),2) 
End Sub 

編輯上面的腳本作品，但作爲預期與外殼函數僅返回執行命令
的WshShellExec功能可以的PID做你想做的事，但它運行PowerShell窗口有一個惱人的閃爍。

Sub Button2_Click() 
    Set WshShell = CreateObject("WScript.Shell") 
    Set WshShellExec = WshShell.Exec("powershell -command ""(get-service -Name browser).Status""") 
    retval = Left(WshShellExec.StdOut.ReadAll, 2) 
End Sub