深入探讨Excel Application对象OnTime方法的死穴.docVIP

深入探讨Excel Application对象OnTime方法的死穴 　　[摘 要]因为Excel集数据库和程序设计于一体，令广大VBA编程爱好者前赴后继地奔走在Excel考试系统路上，定时器作为考试系统的基本要求，而Excel却没有Timer，使爱好者乱了方寸，幸好Application对象OnTime方法带来了一线生机，但它又无法感知系统时间被修改的弊端，成了Excel考试系统的死穴，又让爱好者垂头丧气。 　　[关键词]探讨 Excel Application对象 OnTime方法 　　中图分类号：TP311.52 文献标识码：A 文章编号：1009-914X（2016）02-0351-01 　　Excel考试系统的重点和难点都是定时器的实现，但定时器作为任何考试系统的基本要求，又无法回避，怎样彻底实现Excel考试系统的定时器功能呢？ 　　一、实现定时器的基本方法 　　虽然Excel VBA没有提供定时器，但可以通过Application对象的OnTime方法实现简单的定时器功能，OnTime方法能够安排一个过程在将来的特定时间运行，既可以是具体指定的某个时间，也可以是指定的一段时间之后。 　　语法如下：Application.OnTime EarliestTime，Procedure，LatestTime，Schedule 　　在OnTime方法中递归调用Procedure过程，就可实现定时器。 　　二、致命的死穴 　　尽管OnTime方法可以具体指定的某个时间和指定的一段时间之后两种方式执行Procedure，但本质上都是具体指定的某个时间，因此一旦修改系统时间，不管是提前或延后时间，让其错过指定时刻，或让指定时刻延后数小时或更长，导致OnTime方法失效，从而失去定时器的功能，成为Excel考试系统的死穴。 　　三、解决方案 　　许多编程爱好者都在苦苦探索一旦修改系统时间，立刻让Excel感知系统时间被修改了，从而调整定时器方案，其中想利用类似lostfocus和getfocus事件的Workbook_Activate（）、Workbook_SheetActivate（）、Workbook_WindowActivate（）等事件的探索者，均以失败而告终，因为WindowActivate等事件都是在有两个以上workbook打开时（也就是多个excel文件），互相之间切换起作用，而不是workbook和其他程序窗口间切换。同理，WindowDeactivate也得是在多个workbook时起作用。 　　经过多次探索，终于发现Worksheet_Change（）或Workbook_SheetChange（）可担当此大任，两个事件都在编辑单元格后触发事件，类似TextChange事件，因为一般而言，Excel随时随地都处于编辑状态，所以时时刻刻都会触发Worksheet_Change（）或Workbook_SheetChange（）事件，只要在事件中获取系统时间，并比较前后时间的变化，即可判断系统时间是否被修改。尤其是系统时间被修改为以前的时间，更容易感知，因为时间毕竟不能倒流。 　　四、具体实现方法 　　首先定义两个全局变量Public pass As Date，Public nowtime As Date，在Workbook_Open（）事件中获取系统时间，启动定时器过程displaytime（）。 　　Private Sub Workbook_Open（） 　　nowtime = Now（） 　　pass = nowtime - TimeValue（01：00：00） 防恶意修改系统时间 　　displaytime 　　End Sub 　　而在定时器中递归调用过程displaytime（）。 　　Public Sub displaytime（） 　　nexttime = Now + TimeValue（00：00：01） 　　If Range（D2）.Value TimeValue（00：00：00） Then 　　Application.OnTime nexttime， ThisWorkbook.displaytime， ， True 　　End If 　　End Sub 　　在Worksheet_Change（）或Workbook_SheetChange（）事件中利用DateDiff函数比较pass和nowtime两个变量，当nowtime比pass还早，说明修改了系统时间，提示并作关闭Excel处理。 　　Private Sub Workbook_SheetChange（ByVal Sh As Object， ByVal Target As