vba shell 返回值

最新推荐文章于 2022-05-12 23:20:27 发布

LI5566123456

最新推荐文章于 2022-05-12 23:20:27 发布

阅读量1.5k

点赞数

文章标签： shell

原文链接：http://www.cnblogs.com/yiguxianyun/p/7088032.html

版权

sub Sample1()
    Dim WSH, wExec, sCmd As String, Result As String
    Set WSH = CreateObject("WScript.Shell")         ''(1)
              ''(2)
    Set wExec = WSH.Exec("xcopy /?")    ''(3)

    Result = wExec.StdOut.ReadAll                   ''(5)
    MsgBox Result
    Set wExec = Nothing
    Set WSH = Nothing
End Sub

http://club.excelhome.net/thread-185905-1-1.html 9楼

http://www.excelba.com/Art/Html/370.html

转载于:https://www.cnblogs.com/yiguxianyun/p/7088032.html