以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://222.73.7.161/bbs/index.asp)
--  高级功能研发区  (http://222.73.7.161/bbs/list.asp?boardid=5)
----  关于sleep请教  (http://222.73.7.161/bbs/dispbbs.asp?boardid=5&id=10719)
--  作者：onlylovexue
--  发布时间：2012/3/23 13:56:42
--  关于sleep请教

版主  你好

请问下 在VBA中 如何实现睡眠 ？  用sleep函数吗 ？

--  作者：rushtaotao
--  发布时间：2012/3/23 14:11:40
--  

稍后工作人员给出回复

 
--  作者：Leon
--  发布时间：2012/3/23 15:47:40
--  
楼主指的睡眠是不是多线程中的挂起线程操作？能具体讲讲是什么意思吗
--  作者：Leon
--  发布时间：2012/3/23 15:54:22
--  

//仅供参考

在程序的Sub前加一句

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

就可以调用Sleep了

 

如下,可以暂停10秒.

newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 10
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
--  作者：onlylovexue
--  发布时间：2012/3/23 15:59:59
--  
不是多线程的  在VBA中  做For的 时候 由于执行速度太快了 想睡眠一下  让其执行慢点
--  作者：Leon
--  发布时间：2012/3/23 16:04:50
--  

其实意思差不多，VBA这块我之前没接触过，在网上帮楼主找了一下，看看这堆代码和for能不能同用来解决问题

newHour = Hour(Now())

newMinute = Minute(Now()) //上面两句这个应该是new了一个当前时间

newSecond = Second(Now()) + 10 //这句应该是当前时间停顿10s
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime  //执行等待
--  作者：onlylovexue
--  发布时间：2012/3/23 16:07:05
--  
在金字塔的VBA中 没有提供application.Wait  我也不知道如何调用睡眠  
--  作者：Leon
--  发布时间：2012/3/23 16:27:40
--  

http://www.weistock.com/bbs/dispbbs.asp?boardid=2&Id=370

看看这里有没有能帮到你的