慕蓋茨4494581

根據Andrew Lessard的回答，這是一個運行命令并將輸出作為字符串返回的函數 -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?=?sEnd?Function用法：MsgBox?ShellRun("dir?c:\")

總結

以上是生活随笔為你收集整理的vba执行linux命令,从VBA中的shell命令捕获输出值？的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。