application对象

Application对象的属性和方法

6.3把当前工作簿中的所有工作表的名称写在sheet1从A1开始的单元格中 (sheets.count属性) 6.4使用Application显示标准应用程序的名称 (applicatoin属性) 6.5重计算sheet1工作表上已使用区域中A、B、C列的公式。 (calculate方法) 启动并激活Word。

6.6打开“打开”对话框

6.7设置从现在开始15秒后运行my_procedure1；下午5点运行my_procedure2；撤销OnTime设置 6.10退出excel

6.11调用“人口预测”宏 控制Windows

6.12将活动窗口扩展为可用的最大值(非最大化) 控制Excel状态和显示

6.13禁止事件触发，如禁止workbook_BeforeSave、workbook_Change、worksheet_Change触发。 关闭屏幕更新。

6.14为“Ctrl+加号”分配“InserProc”过程

为“Shift+Ctrl+向右键”分配“SpecialPrintProc”过程 为“Shift+Ctrl+向右键”重新设为正常含义 为“Shift+Ctrl+向右键”设为不发生任何操作 为Excel2007应用程序指定快捷键为功键F3 Application对象的事件 工作表行为

SheetActivate事件：Excel传递一个Object变量给该事件处理过程，Object变量包含一个对激活工作表的引

用。Object变量必须强制转换为正确类型的变量(Worksheet、Chart等)，才可使用。

SheetBeforeDoubleClick事件

SheetBeforeRightClick事件：不会发生于图表工作表 SheetCalculate事件：重新计算任意工作表时发生

SheetChange事件：任意工作表中的单元格发生更改时发生 SheetDeactivate事件：工作表失去焦点时发生

SheetFollowHyperlink事件：单击表中任意超链接时发生

SheetSelectionChange事件：工作表中所选内容发生更改时发生，不会发生于图表工作表

窗口行为(Application独特的事件，需在类模块中通过定义响应事件的对象，通过此对象编写事件的响应过程) WindowActivate事件：激活任意窗口时发生 WindowDeactivate事件

WindowResize事件：调整窗口大小时发生 6.15工作簿窗口被激活时将窗口最大化 6.16工作簿窗口失去焦点时将窗口最小化

6.17工作簿窗口调整大小时，设置应用程序状态栏标题为工作簿名称+“重新设置窗口”+现在的时间

工作簿管理

NewWorkbook事件：创建新工作簿时发生 WorkbookActivate事件 WorkbookBeforeClose事件 WorkbookBeforePrint事件 WorkbookBeforeSave事件 WorkbookDeactivate事件

WorkbookNewSheet事件：将新的工作表添加到工作簿时发生 WorkbookOpen事件

6.18创建新工作簿时，对打开的窗口进行排列 6.19关闭工作簿前询问用户是否关闭

6.20打印工作簿前对所有工作表进行重新计算 6.21保存工作簿前询问用户是否保存 6.22将新建的工作表移动到工作簿末尾

6.23打开一个工作簿时，对所有打开的窗口进行排列

常用的文件操作

FileDialog对象的方法，用于打开文件、获取文件名、在一个文件夹中浏览文件名等

6.24使用Show方法在Excel中打开文件对话框，允许用户选择一个或多个文件。选中后，Excel逐条显示每个文件的路径，并保存于工作中。

6.25打开标准圣诞框，选定指定类型的文件 6.26 GetSaveAsFilename方法的使用 6.27获取不含路径的纯文件名

Sub 例6_3() Dim i As Integer

For i = 1 ToWorksheets.Count

Sheet1.Range(\ Next i

Msgbox“本过程设置了快捷键F3” End Sub

Sub 例6_4()

Debug.PrintApplication.Application?Application属性返回对象的名称，即Excel应用程序的名称 MsgBox (\这是 \对象\End Sub

sheet1.UsedRange.Columns(\Sub 例6_5

Application.ActivateMicrosoftAppxlMicrosoftWord End sub

Sub 例6_6()

Application.FindFile End Sub

Sub 例6_7()

Application.OnTimeearliesttime:=Now + TimeValue(\Application.OnTimeTimeValue(\

Application.OnTimeearliesttime:=Now + TimeValue(\End Sub

Sub 例6_10()

msgbox \将会关闭\Application.Quit End Sub

Sub 例6_11()

Application.Run macro:=\人口预测\?与用Call语句调用的作用完全相同 End Sub

Sub 例6_12()

With ActiveWindow

.WindowState = xlNormal .Top = 1 .Left = 1

.Height = Application.UsableHeight .Width = Application.UsableWidth End With End Sub

Private Sub Workbook_BeforeSave(ByValSaveAsUI As Boolean, Cancel As Boolean) Range(\End Sub

Sub 例6_13()

Application.EnableEvents = False ActiveWorkbook.Save

Application.EnableEvents = True End sub

Sub 例6_14()

Application.OnKey \

Application.OnKey \Application.OnKey \

Application.OnKey \Application.OnKey \例6_3()\

MsgBox \过程例6_3()被分配了快捷键F3，但是不能用，不知道为什么\End Sub

Private Sub Workbook_Open() ?工作簿打开事件中，分配快捷键 Set_FKeys End Sub

Private Sub Workbook_BeforeClose(Cancle As Boolean) ?工作簿关闭事件中，重设快捷键为默认值 Restore_FKeys End Sub 6_15

Private Sub Workbook_WindowActivate(By Val Wn As Excel.Window)?此Wn为Excel.Window Wn.WindowState = xlMaximized End Sub 6_16

Private Sub Workbook_WindowDeactivate(ByValWn As Window) Wn.WindowState = xlMinimized End Sub 6_17

Private Sub Workbook_WindowResize(ByValWn As Window) Application.StatusBar = Wn.Caption& \重新设置窗口\End Sub 6_18

Private Sub App_NewWorkbook(By Val Wb As Workbook) Application.Windows.ArrangexlArrangeStyleTiled End Sub 6_19

Private Sub App_WorkbookBeforeClose(By Val Wb As Workbook,Cancel as boolean) Dim a

a = MsgBox(“Do you really want to close the workbook?”,vbYesNo) If a =vbNo Then Cancel=true End Sub 6_20

Private Sub App_WorkbookBeforePrint(By Val Wb As Workbook,Cancel as boolean) Dim ws as range

For Each ws in Wb.worksheets ws.Calculate Next End Sub 6_21

Private Sub App_WorkbookBeforeSave(By Val Wb As Workbook,By Val SaveAsUI As Boolean,Cancel as boolean) Dim a

a=MsgBox(“Do you really want to save the workbook?”,vbYesNo) If a=vbNo Then Cancel=True Next End Sub 6_22

Private Sub App_WorkbookNewSheet(By Val Wb As Workbook, ByValsh As Object) sh.Move after:=Wb.Sheets(Wb.Sheets.Count) End Sub 6_23

Private Sub App_WorkbookOpen(By Val Wb As Workbook) Application.Windows.ArrangexlArrangeStyleTiled End Sub