Excel VBA中的Open事件
- 2023-02-19
- 来源/作者： Wps Office教程网/ 菜鸟图库
- 303 次浏览
一个最常见的被监控事件是工作簿的Open事件。当工作簿(或加载项)打开时，该事件被触发，执行Workbook_Open过程。Workbook_Open过程功能非常多，通常用于完成以下任务：
●显示欢迎信息。
●打开其他工作簿。
●激活特定的工作表。
●确保符合一定的条件。例如，一个工作簿也许需要安装特殊的加载项。
下面是关于Workbook_Open过程的一个简单示例。它使用VBA的Weekday函数确定星期几。如果是星期五，将显示一个信息框提醒用户执行文件备份。如果不是星期五，不显示任何信息。
private Sub Workbook_Open()
If Weekday(Now)=6 Then
Msg="请执行文件备份"
MsgBox Msg, vbInformation
End If
End Sub
遗憾的是，VBA对于Excel2007的功能区束手无策。例如，甚至没有一种直接的方法去激活一个特定的功能区选项卡。下面的例子使用SendKeys声明模拟“按键”。在该例子中，它发送了快捷键Alt+H，该键是Excel2007的“键提示”，相当于激活功能区的“开始”选项卡。按时键从功能区中移出键提示字母。
Private Sub Workbook_open()
Application.SendKeys ("%h(F6)")
End Sub
下面的例子是当工作簿打开时，执行一系列的动作。它最大化Excel窗口，最大化工作簿窗口，激活命名为DataEntry的表，并选中A列第一个空的单元格。如果不存在DataEntry工作表，则代码产生错误信息。
private Sub Workbook_Open()
Application.WindowState = xlMaximized
ActiveWindow.windowState = xlMaximized
Worksheets("DataEntry").Activate
Range("A1").End(xlDown).offset(1,O).Select
End Sub
