Excel vba代码可以处理很多事情。当然也包括调用命令行代码或者Bash脚本,VBA可以通过Shell函数很方便地做到这一点。
这里我们用ipconfig /all来举例,用这条命令用来获得机器的网路配置信息,包括IP、网关等信息。
运行下面这条VBA语句,会闪出一个命令行窗口,窗口里执行了ipconfig /all命令行:
Shell "ipconfig /all"
但默认情况下,Shell函数执行完毕之后窗口便被关闭。ipconfig /all速度很快,命令行窗口会一闪而过,用户根本看不到运行结果。下面是两个解决方法。
一种解决方法是命令行窗口在运行完毕之后不关闭,这样用户可以看到上次的运行结果。这只需要在原来的命令行前面添加 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"即可。
在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教程学习网