java代码执行shell脚本-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教程学习网