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

Excel VBA编程 打开工作簿自动运行宏Excel VBA编程 打开工作簿自动运行宏 如果希望每次启动 Microsoft Excel 时都自动执行某些操作，可以通过录制或编写一个打开工作簿时都将运行的宏。可以使用如下两种方法创建自动运行宏： l l 录制宏时，将宏的名称命名为 Auto_Open。 将此宏编写为工作簿“打开”事件的VBA 过程。 录制 Auto_Open 宏会受到诸多限制。与录制 Auto_Open 宏相比，将宏编写为工作簿“打开”事件的 VBA 过程功能会强大得多，而且更为灵活，所以是创建启动宏的首选方法。如下是创建打开工作簿自动运行宏的方法： 1将工作簿设置为在 Excel 启动时自动打开 不管使用上述两种方法中的哪一种来创建宏，都要将宏保存在一个特定的工作簿中。因此，如果想让这个宏在每次Excel启动时运行，就必须确保包含此宏的工作簿在 Excel 启动时自动打开。 要想在启动Excel时打开，就必须将包含该启动宏的工作簿保存在 XLStart 文件夹中。如果是默认安装，则XLStart 文件夹的位置是： “C:Program FilesMicrosoft OfficeOffice12XLSTART” 2创建 Auto_Open 宏 录制一个宏并用“Auto_Open”这一名称保存它，则每次打开包含此宏的工作簿时，它都会自动运行。 要录制“Auto_Open”宏，首先打开此工作簿。并打开对话框，在文本框中输入宏名“Auto_Open”；然后在下拉列表框中选择“当前工作簿”选项；单击“确定”，然后执行要录制的操作。 创建完成后，在选项卡上，单击按钮。然后将此工作簿保存或移动到XLStart 文件夹中。 如果遇到以下情况，录制Auto_Open宏自动运行将失败： l l l 如果在保存Auto_Open 宏所用的工作簿中，已在其“打开”事件中包含了一个VBA过程，则“打开”事件的VBA过程将会覆盖Auto_Open宏中的所有操作。 如果该工作簿是通过使用“打开”方法以编程方式打开的，则Auto_Open宏将被忽略。 Auto_Open 宏会在任何其他工作簿打开之前运行。如果录制宏希望其在Excel的默认的Book1工作簿或从XLStart文件夹载入的工作簿上执行这些操作。那么，在重新启动Excel时，Auto_Open宏将会失败，因为在打开默认工作簿和启动工作簿之前，它就已经运行了。 如果遇到上述情况，就不应录制 Auto_Open 宏，而应使用工作簿的“打开”事件创建VBA过程。 3为工作簿的打开事件创建VBA过程 工作簿的“打开”事件是一个内置的事件，它会在每次打开该工作簿时都运行其事件的代码。要创建“打开”事件的宏，可使用如下方法： 在Excel中，打开要添加宏的工作簿。然后，打开Visual Basic 编辑器，在其中，双击“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 自动运行