Excel VBA中的Open事件

Excel函数 2023-01-13

一个最常见的被监控事件是工作簿的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

上一篇：Excel vba随机函数用法和实例下一篇：实现从excle单元格是提取数字教程

Excel VBA中的Open事件

热门文章

最新文章

标签列表