WshShell对象Run方法（VBA）

以下代码通过vbs脚本可实现运行CMD且隐藏黑窗口运行。（记事本保存为后缀名为.vbs的文件）

Set ws = CreateObject("Wscript.Shell") 
ws.run "cmd /c c:\1.bat",0 

或者

CreateObject("WScript.Shell").Run "cmd /c c:\1.bat",0 

最后那个0是指窗口参数，用法为：
　　0 隐藏窗口并激活另一窗口。
　　1 激活并显示一个窗口。若窗口是最小化或最大化，则恢复到其原来的大小和位置。
　　2 激活窗口并以最小化显示该窗口。
　　3 激活窗口并以最大化显示该窗口。
　　4 按窗口最近的大小和位置显示。活动窗口保持活动。
　　5 以当前大小和位置激活并显示窗口。
　　6 最小化指定窗口并激活按 Z 序排序的下一个顶层窗口。
　　7 最小化显示窗口。活动窗口保持活动。
　　8 以当前状态显示窗口。活动窗口保持活动。
　　9 激活并显示窗口。若窗口是最小化或最大化，则恢复到原来的大小和位置。在还原应用程序的最小化窗口时，应指定该标志。