查看: 2485|回复: 3
请问，VBA中调用Dos命令的语句时的执行顺序？
阅读权限50
在线时间 小时
本帖最后由 mansohu 于
15:26 编辑
正常的VBA代码是上一句执行完成后，再执行下一句。
请问，在VBA中调用Dos命令的代码，是否会等DOS命令执行完毕后，再执行下一句VBA代码？
我试着用下面代码删除一个注册表里的文件夹，紧跟着后面再创建该文件夹，并在里面增加键
Reg_Adss=&HKEY_CURRENT_USER\……&
Shell (&Reg Delete & & Reg_Adss&&& & /f&)
CreateObject(&Wscript.Shell&).RegWrite Reg_Adss & RegName, V& && &’如果我在这一行设置断点，再执行，注册表中会正常增加该键，但如果紧跟上面的代码直接运行，则不会创建该键。
注： RegName, V是键名和键值
阅读权限100
在线时间 小时
在VBA中调用Dos命令的代码，是否会等DOS命令执行完毕后，再执行下一句VBA代码？
阅读权限50
在线时间 小时
liucqa 发表于
在VBA中调用Dos命令的代码，是否会等DOS命令执行完毕后，再执行下一句VBA代码？
那如果下一句代码，需要Dos命令的结果呢？通常怎么解决呢？
阅读权限100
在线时间 小时
mansohu 发表于
那如果下一句代码，需要Dos命令的结果呢？通常怎么解决呢？
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
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师}