vba中执行cmd命令

liucqa · 发表于 2012-7-6 09:35

本帖最后由 liucqa 于 2012-7-6 11:11 编辑

Sub vba中执行cmd命令()
      Set WshShell = CreateObject("WScript.Shell")

      Set oExec = WshShell.Exec("calc")

      Do While oExec.Status = 0
         DoEvents
      Loop

      MsgBox oExec.Status
End Sub

loquat · 发表于 2014-12-22 09:40

第1个参数是执行的文件，如果该文件可带参数，直接写在后面
第2个参数是窗体是否隐藏True/False
第3个参数是是否等待返回True/False

		自动登录	找回密码
密码			免费注册

[分享] vba中执行cmd命令