摘要: <% ' 执行每天只需处理一次的事件 Call BrandNewDay() ' ============================================ ' 执行每天只需处理一次的事件 ' ============================================ Sub BrandNewDay() Dim sDate sDate = Date() If Application( "date_today ") = sDate Then Exit Sub ' 具体操作 Application.Lock 阅读全文
posted @ 2012-11-23 13:07 Hellen.Li 阅读(212) 评论(0) 推荐(0)