execl执行linux命令,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 /k ipconfig /all"

为了方便，可以先设立一个函数来自动处理这件Function RunShell(cmd As String, Optional windowstyle As VbAppWinStyle = vbMinimizedFocus)   As Double

RunShell = Shell("cmd /k """ & cmd & """", windowstyle)

End Function

然后运行RunShell "ipconfig /all"即可。

3、VBA Excel和Shell交互

在Excel VBA中通过Shell直接调用命令行，Excel和命令行进程是并行运行的，Excel不会等待命令行运行完毕便会继续执行后面的代码，两者之间也不存在交互(VBA中Shell函数返回值是进程ID)。通过下面这个ShellAndWait函数调用命令行，Excel函数会等待命令行运行完毕才会继续运行，并且可以获得命令行的运行结果和错误信息。Function ShellAndWait(cmd As String) As String

Dim oShell As Object, oExec As Object

Set oShell = CreateObject("WScript.Shell")

Set oExec = oShell.exec(cmd)

ShellAndWait = oExec.StdOut.ReadAll

Set oShell = Nothing

Set oExec = NothingEnd Function

这样运行res = ShellAndWait("ipconfig /all")，Excel会等待命令行窗口运行完毕，并获取命令行的运行结果进行后续处理。

参考自：Office教程学习网