Excel_VBA_处理Application对象.docVIP

Application对象 取得Excel版本信息 Application对象的Version属性可以返回Excel版本号#001 Sub AppVersion() #002 Dim myVersion As String #003 Select Case Application.Version #004 Case 8.0 #005 myVersion = 97 #006 Case 9.0 #007 myVersion = 2000 #008 Case 10.0 #009 myVersion = 2002 #010 Case 11.0 #011 myVersion = 2003 #012 Case Else #013 myVersion = 版本未知 #014 End Select #015 MsgBox Excel 版本是： myVersion #016 End Sub 代码解析： AppVersion过程返回Application对象的Version属性值来取得Excel版本号Version属性返回Excel版本号expression.Version 参数expression是必需的，Application对象。 运行AppVersion过程结果如图 641所示。 图 641 取得Excel版本号Application对象的UserName属性可以取得当前用户名称，如下面的代码所示。 Sub UserName() MsgBox 当前用户名是: Application.UserName End Sub 代码解析： UserName过程使用消息框显示当前用户名称。 Application对象的UserName属性返回或设置当前用户的名称UserName过程效果如图 651所示。 图 651 显示当前用户名称 Excel中的“定时器” Excel VBA并没有提供定时器控件，但是用户可以通过Application对象的OnTime方法实现简单的定时器功能，如下面的代码所示。 #001 Sub StartTimer() #002 Sheet1.Cells(1, 2) = Sheet1.Cells(1, 2) + 1 #003 Application.OnTime Now + TimeValue(00:00:01), StartTimer #004 End Sub 代码解析： StartTimer过程Application对象的OnTime方法StartTimer过程实现每一秒钟运行一次StartTimer过程在单元格中不断显示时间图 661所示。 图 661 简单的定时器 第2行代码将B1单元格的值在原有的数字上加1。 第3行代码使用OnTime方法StartTimer过程Application对象的OnTime方法安排一个过程在将来的特定时间运行expression.OnTime(EarliestTime, Procedure, LatestTime, Schedule) 参数expression是必需的，返回一个Application对象EarliestTime是必需的，设置过程开始运行的时间使用Now + TimeValue(time)可安排从现在开始经过一段时间之后运行某过程使用TimeValue(time)可安排在指定的时间运行过程。Procedure是必需的，设置要运行的过程名LatestTime是可选的，设置过程开始运行的最晚时间。例如LatestTime设为EarliestTime+0，当时间到了EarliestTimeExcel不处于Excel将等待0秒如果0秒内Excel不能回到，则不运行过程。如果省略该参数，Excel将一直等待到可以运行该过程为止。Schedule是可选的，如果值为True默认值则安排一个新的OnTime过程如果值为False，则清除先前设置的过程。#001 Sub EndTimer() #002 On Error GoTo Line #003 Application.OnTime Now + TimeValue(00:00:01), StartTimer, , False #004 Sheet1.Cells(1, 2) = 0 #005 Exit Sub #006 Line: #007 MsgBox 请先按[开始]