欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → 请教，如何整点运行VBA程序

   

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。    

  共有4937人关注过本帖树形打印复制链接

主题：请教，如何整点运行VBA程序
帅哥哟，离线，有人找我吗？
liwei_bj
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：263 积分：851 威望：0 精华：0 注册：2010/11/1 11:00:43 		请教，如何整点运行VBA程序  发帖心情 Post By：2011/4/20 11:10:41 [只看该作者]

我想让选股程序在整点运行，比如09：30，10：30，14：00等，我是设置了一个30秒的timer，然后在timer事件中判断时间是否为整点，请问是否有更简单的方法？就像VBA里面的Application.OnTime TimeValue("09:30:00")的用法？

 回到顶部
帅哥哟，离线，有人找我吗？
guotx2010
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：蜘蛛侠 帖子：1366 积分：5210 威望：0 精华：7 注册：2010/12/11 18:00:33 		  发帖心情 Post By：2011/4/20 12:11:49 [只看该作者]

'设置一个计时器

Sub Applocation_VBAStart()
     Call Application.SetTimer(2, 5000)
End Sub

 

'计时器程序中，判断是否为整点

Sub APPLICATION_Timer(ID)

    If Time = CDate("9:30") Then

         '代码

    End if

    If Time = CDate("10:00") Then

         '代码

    End if

    ...

 

End Sub

 
 回到顶部
帅哥哟，离线，有人找我吗？
msedu
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：232 积分：1256 威望：0 精华：0 注册：2010/4/24 21:58:28 		  发帖心情 Post By：2011/5/5 9:59:09 [只看该作者]

不错。。。

 

：-）
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 0.10156 秒, 5 次数据查询