Excel 调用Shell命令执行bash脚本和命令行代码

Excel vba代码可以处理很多事情。当然也包括调用命令行代码或者Bash脚本，VBA可以通过Shell函数很方便地做到这一点。这里我们用ipconfig /all来举例，用这条命令用来获得机器的网路配置信息，包括IP、网关等信息。
1、一般调用运行下面这条VBA语句，会闪出一个命令行窗口，窗口里执行了ipconfig /all命令行：Shell"ipconfig/all"但默认情况下，Shell函数执行完毕之后窗口便被关闭。ipconfig /all速度很快，命令行窗口会一闪而过，用户根本看不到运行结果。下面是两个解决方法。
2、让命令行窗口运行完毕不自动关闭一种解决方法是命令行窗口在运行完毕之后不关闭，这样用户可以看到上次的运行结果。这只需要在原来的命令行前面添加cmd /k：Shell"cmd/kipconfig/all"
为了方便，可以先设立一个函数来自动处理这件FunctionRunShell(cmdAsString,OptionalwindowstyleAsVbAppWinStyle=vbMinimizedFocus)AsDouble
RunShell=Shell("cmd/k"""&cmd&"""",windowstyle)
EndFunction然后运行RunShell "ipconfig /all"即可。

1509959585449639.png

3、VBA Excel和Shell交互在Excel VBA中通过Shell直接调用命令行，Excel和命令行进程是并行运行的，Excel不会等待命令行运行完毕便会继续执行后面的代码，两者之间也不存在交互（VBA中Shell函数返回值是进程ID）。通过下面这个ShellAndWait函数调用命令行，Excel函数会等待命令行运行完毕才会继续运行，并且可以获得命令行的运行结果和错误信息。FunctionShellAndWait(cmdAsString)AsString
DimoShellAsObject,oExecAsObject
SetoShell=CreateObject("WScript.Shell")
SetoExec=oShell.exec(cmd)
ShellAndWait=oExec.StdOut.ReadAll
SetoShell=Nothing
SetoExec=NothingEndFunction这样运行res = ShellAndWait("ipconfig /all")，Excel会等待命令行窗口运行完毕，并获取命令行的运行结果进行后续处理。
参考自：Office教程学习网