Excel VBA编程打开工作簿自动运行宏.docx

上传人:小飞机 文档编号:3156718 上传时间:2023-03-11 格式:DOCX 页数:3 大小:37.73KB
返回 下载 相关 举报
Excel VBA编程打开工作簿自动运行宏.docx_第1页
第1页 / 共3页
Excel VBA编程打开工作簿自动运行宏.docx_第2页
第2页 / 共3页
Excel VBA编程打开工作簿自动运行宏.docx_第3页
第3页 / 共3页
亲,该文档总共3页,全部预览完了,如果喜欢就下载吧!
资源描述

《Excel VBA编程打开工作簿自动运行宏.docx》由会员分享,可在线阅读,更多相关《Excel VBA编程打开工作簿自动运行宏.docx(3页珍藏版)》请在三一办公上搜索。

1、Excel VBA编程 打开工作簿自动运行宏Excel VBA编程 打开工作簿自动运行宏 如果希望每次启动 Microsoft Excel 时都自动执行某些操作,可以通过录制或编写一个打开工作簿时都将运行的宏。可以使用如下两种方法创建自动运行宏: l l 录制宏时,将宏的名称命名为 Auto_Open。 将此宏编写为工作簿“打开”事件的VBA 过程。 录制 Auto_Open 宏会受到诸多限制。与录制 Auto_Open 宏相比,将宏编写为工作簿“打开”事件的 VBA 过程功能会强大得多,而且更为灵活,所以是创建启动宏的首选方法。如下是创建打开工作簿自动运行宏的方法: 1将工作簿设置为在 Ex

2、cel 启动时自动打开 不管使用上述两种方法中的哪一种来创建宏,都要将宏保存在一个特定的工作簿中。因此,如果想让这个宏在每次Excel启动时运行,就必须确保包含此宏的工作簿在 Excel 启动时自动打开。 要想在启动Excel时打开,就必须将包含该启动宏的工作簿保存在 XLStart 文件夹中。如果是默认安装,则XLStart 文件夹的位置是: “C:Program FilesMicrosoft OfficeOffice12XLSTART” 2创建 Auto_Open 宏 录制一个宏并用“Auto_Open”这一名称保存它,则每次打开包含此宏的工作簿时,它都会自动运行。 要录制“Auto_Op

3、en”宏,首先打开此工作簿。并打开对话框,在文本框中输入宏名“Auto_Open”;然后在下拉列表框中选择“当前工作簿”选项;单击“确定”,然后执行要录制的操作。 创建完成后,在选项卡上,单击按钮。然后将此工作簿保存或移动到XLStart 文件夹中。 如果遇到以下情况,录制Auto_Open宏自动运行将失败: l l l 如果在保存Auto_Open 宏所用的工作簿中,已在其“打开”事件中包含了一个VBA过程,则“打开”事件的VBA过程将会覆盖Auto_Open宏中的所有操作。 如果该工作簿是通过使用“打开”方法以编程方式打开的,则Auto_Open宏将被忽略。 Auto_Open 宏会在任何

4、其他工作簿打开之前运行。如果录制宏希望其在Excel的默认的Book1工作簿或从XLStart文件夹载入的工作簿上执行这些操作。那么,在重新启动Excel时,Auto_Open宏将会失败,因为在打开默认工作簿和启动工作簿之前,它就已经运行了。 如果遇到上述情况,就不应录制 Auto_Open 宏,而应使用工作簿的“打开”事件创建VBA过程。 3为工作簿的打开事件创建VBA过程 工作簿的“打开”事件是一个内置的事件,它会在每次打开该工作簿时都运行其事件的代码。要创建“打开”事件的宏,可使用如下方法: 在Excel中,打开要添加宏的工作簿。然后,打开Visual Basic 编辑器,在其中,双击“

5、ThisWorkbook”对象,打开其编辑窗口。在该窗口上方的下拉列表框中,选择“Workbook”选项,则系统自动为“打开”事件创建该对象的过程,如图3-19所示。 选择 图3-19 选择对象 代码如下: Private Sub Workbook_Open End Sub 然后将下列代码行添加到“Open”事件中: 运行时弹出对话框,提示时间 MsgBox Date, vbOKOnly + vbInformation, 消息 Worksheets(Sheet1).Range(A1).Value = Date 切换到 Microsoft Excel 中,保存工作簿并命名,如“打开事件过程”,并选择为“Excel 启用宏的工作簿”。关闭该工作簿后,再重新打开该工作簿时,Excel将自动运行Workbook_Open过程,如打开“打开事件过程”工作簿,打开后自动弹出一个对话框,对话框中显示了今天的日期,且在工作表Sheet1中单元格A1中也会包含当前日期,如图3-20所示。 显示 弹出 图3-20 自动运行

展开阅读全文
相关资源
猜你喜欢
相关搜索

当前位置:首页 > 生活休闲 > 在线阅读


备案号:宁ICP备20000045号-2

经营许可证:宁B2-20210002

宁公网安备 64010402000987号