求助，如何实现这个功能啊？

[zhuwy16]

我的程序中用shell函数调用了一个程序
shell “re.exe”,1
open "1.txt" for input as #1


close #1
我想在 re.exe执行完之后再执行下面的语句，现在的情况是re.exe调用后（需要40多秒吧），没有等出结果后面的语句就执行了
如何来实现这个控制啊
另外我用的是vba，其中没有timer控件啊

[DeRoshia]

shell “re.exe”,1
for index = 1 to 10000(算算够四十秒的数)
for index = 1 to 10000
……
next
next
open "1.txt" for input as #1


close #1
你试试好不好用

[jam021]

Dim cmdLine
Set cmdLine = CreateObject("WScript.shell")
cmdLine.Run "cmd.exe /c re.exe", , True

[bdzwj]

最好用用waitforsingle API 函数进行等待

[alidavy]

支持楼上的.
如果可以确定时间的话,也可用Sleep

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

在需要的地方调用
Sleep 40000 '延迟40秒