主题：请教，如何在下午 13:40 定时执行一个vba 模块里面的某过程

使用application对象的settimer方法设置定时器，在定时器的事件中判断时间。

application对象的使用方法请参考:http://www.weistock.com/bbs/dispbbs.asp?boardid=5&Id=11642

在application_timer(id)事件中可以这样判断时间

if cdate(time)="13:40:00" then

    你的代码

end if

还是完整写一个代码给你吧

sub application_Vbastart()                     'VBA启动时执行，设置一个0号定时器，5秒轮询一次

    call application.Settimer(0,5000)

end sub

sub application_timer(ID)                      '定时器事件，判断时间是否与你要求的时间一致，一致就执行你的代码

    if cdate(time)="13:40:00" then

          你的代码

    end if

end sub

sub application_vbaend()                        'vba停止时停止计时器

    call application.killtimer(0)

end sub