。。。。。。。。。。。。。
call application.SetTimer(3,1000)'1000毫秒扫一次
。。。。。。。。。。。。。
if id=3 then '发邮件
if weekday(now)<>1 and weekday(now)<>7 then
if cdate(time)="08:50:00" or cdate(time)="15:15:00" then
sendreport
end if
end if
end if
不知道为什么只有下午发邮件,早上8.50不发邮件?
if cdate(time)="08:50:00" or cdate(time)="15:15:00" then
sendreport
application.msgout "发了"
end if
这样加上调试代码后看看早盘有没有执行到
你把你计算机时间改到早上8点,然后
application.msgout cdate(time)
看看输出的到底是什么样的日期格式,我觉得做VBA编程的人,应该知道处理这些简单的逻辑思维吧