Excel Application对象 开发指南
Excel Application对象开发指南 2009-12-26 13:10:21标签：Excel VBA概述Application对象是Microsoft Office Excel 2007对象模型中最高级别的对象，表示Excel程序自身。
Application对象提供正在运行的程序的信息、应用于程序实例的选项以及实例中打开的当前对象。
因为它是对象模型中最高的对象，Application对象也包含组成一个工作簿的很多部件，包括如工作簿、工作表集合、单元格以及这些对象所包含的数据等。
Application对象包括：∙程序范围的设置和选项。
这些选项大部分同“工具”菜单下的“选项”对话框里的内容相同。
∙顶级对象返回的方法，如ActiveCell、ActiveSheet等。
在下面几节里，你将通过使用VBA代码示例学习到一些Application对象中经常使用到的对象、方法和属性。
关于Application对象模型所有成员的详细资料，请参考Application对象成员。
Application对象中其它对象的引用方法你可以使用Application属性返回Application对象。
获取一个Application对象后，如需访问它下面的对象，可以在对象模型层级中往下移动。
下面示例设置一个工作表的第一个单元格内容为20。
Application.Workbooks(1).Worksheets(1).Cells(1,1)=20要表示一个单元格，上面的代码示例从Application对象开始，移到第一个工作簿，再移到第一个工作表，最后到这个单元格。
下面示例在另一个Excel程序中创建一个Excel工作簿对象，然后打开一个工作簿。
Set xl=CreateObject("Excel.Sheet")xl.Application.Workbooks.Open "newbook.xls"不需要使用“Application”限定词，很多的属性和方法也可以直接被用来返回那些最常用的用户界面对象，如活动工作表(ActiveSheet属性)。
例如，除了使用 = “Monthly Sales”，你也可以使用 = “Monthly Sales”。
然而，当使用这个简便表示方法时必需小心，需要选择正确的对象。
例如通过使用Worksheet对象的Activate方确定你选择了正确的工作簿和工作表后，你可以使用Cell(1,1)表示第一个单元格。
有几种情况你必需使用Application限定词。
例如，OnTime对象(本文后面部分将讨论)需要这个限定词，还有程序窗口的Width和Height属性。
一般来说，用来处理Excel窗口的外观或影响程序全局行为的属性或方法需要使用Application限定词；例如，DisplayFormlaBar 属性用来显示或隐藏公式栏，Calculation方法也需要限定词。
Application对象集合这一节详细介绍一些和Application对象相关的集合。
AddIns集合AddIns集合表示所有当前加载的Excel Add-in。
你可以像枚举其它对象一样在你的程序中列举出关于add-in的不同类型信息。
下面的示例列举出当前加载到Excel中的Add-in的路径和名称。
Sub ListAddIns()Dim myAddin As AddInFor Each myAddin In AddInsMsgBox myAddin.FullNameNextEnd SubColumns和Rows集合这两个集合表示活动工作簿中的列和行。
分别使用它们选择指定的列和行。
Application.Columns(4).Select这个语句选择D列，就像你通过点击用户界面中的列的顶部一样。
Application.Rows(5).Select这个语句选择工作表中的第5行，就像你点击行的左边框一样。
Dialogs集合Dialogs集合包括Excel程序中所有的对话框。
将在本文中后面部分更详细地讨论Dialogs集合。
Sheets集合Sheets集合返回指定或活动工作簿中所有工作表的集合。
Sheets集合可以包含Chart或Worksheet对象。
下面示例打印出活动工作簿中所有的工作表。
Application.Sheets.PrintOut这个示例循环工作簿中所有的工作表并打印出包含数据区域的任何工作表。
For iSheet = 1 To Application.Sheets.CountIf Not IsEmpty(Application.Sheets(iSheet).UsedRange) ThenApplication.Sheets(iSheet).PrintOut copies:=1End IfNext iSheetApplication对象的属性有很多的属性可以用来访问Excel 2007程序的各种对象，多得不能记住或在这里全部讨论。
幸运的是只有一部分是你可能经常使用的。
∙ActiveCell∙ActiveChart∙ActiveSheet∙ActiveWindow∙ActiveWorkbook∙RangeSelection∙Selection∙StatusBar∙ThisWorkbook下面的内容演示这些常用属性的使用方法。
ActiveCell属性Application对象的ActiveCell属性返回一个表示活动工作簿中活动工作表的活动单元格的Range对象。
如果你没有指定对象限定词，这个属性返回活动窗口的活动单元格。
注意区别活动单元格和选择的单元格。
活动单元格是当前选择中的一个单元格。
选择(Selection)可能包括一个单元格集合，但只有其中一个是活动单元格。
下面的示例改变活动单元格的字体格式。
注意为了确保你操作正确的单元格，工作表集合的Activate方法让Sheet1成为活动工作表。
Worksheets("Sheet1").ActivateWith ActiveCell.Font.Bold = True.Italic = TrueEnd WithActiveChart属性ActiveChart属性返回表示活动图表的Chart对象，不管它是嵌入的图表还是图表工作表。
在一个嵌入的图表被选择或激活时，它就是活动图表。
下面的示例使用ActiveChart属性添加一个3维柱形图到月销售记录工作表中。
Sub AddChart()Charts.AddWith ActiveChart.ChartType = xl3DColumn.SetSourceData Source:=Sheets("Sheet1").Range("B3:H15").Location Where:=xlLocationAsObject, Name:="Monthly Sales".HasTitle = True.ChartTitle.Characters.Text = Monthly Sales by CategoryEnd WithEnd SubActiveSheet属性ActiveSheet属性返回一个表示当前选中的工作表（顶部工作表）的Worksheet对象。
在一个工作簿中只有一个工作表能成为活动工作表。
下面的示例显示活动工作表的名称。
MsgBox "The name of the active sheet is " & 下面的示例将活动工作表复制用户指定的次数并放置在Sheet1之前。
Sub CopyActiveSheet()Dim x As Integerx = InputBox("Enter number of times to copy active sheet")For numtimes = 1 To x' Put copies in front of Sheet1.ActiveWorkbook.ActiveSheet.Copy _Before:=ActiveWorkbook.Sheets("Sheet1")NextEnd SubActiveWindow属性ActiveWindow属性返回一个表示活动窗口（顶部窗口）的Window对象。
下面的示例显示活动窗口的名称（Caption属性）。
MsgBox "The name of the active window is " & ActiveWindow.CaptionCaption属性作为活动窗口的名称允许你通过使用友好的名称而不是序号来获得窗口。
下面的示例选择并打印一个工作表，然后对第二个工作表重复此过程。
Sub PrintWorksheet()Application.ScreenUpdating = FalseSheets("Sales").SelectActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=TrueSheets("Expenses").SelectActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=TrueEnd Sub在这个例子中，你可能疑惑为什么设置ScreenUpdating属性为False。
当Excel执行一系列任务时，屏幕被更新并刷新很多次，这将导致屏幕闪烁。
设置ScreenUpdating属性为False 可以消除闪烁。
另外，因为电脑处理器不需要暂停来刷新屏幕，这样也可以让大型程序运行得较快一点。
ActiveWorkbook属性ActiveWorkbook属性返回一个表示活动窗口(顶部窗口)中的工作簿的Workbook对象。
这个示例显示活动工作簿的名称。
MsgBox "The name of the active workbook is " & 下面示例设置计算模式为手动（这样其它工作簿将不计算），然后循环并计算活动工作簿的每个工作表。
Sub CalcBook()Dim wks As WorksheetApplication.Calculation = xlManualFor Each wks In ActiveWorkbook.Worksheetswks.CalculateNextSet wks = NothingEnd SubRangeSelection属性RangeSelection属性返回一个表示指定窗口中工作表里选择的单元格的Range对象，即使在工作表中一个图表对象已经被选择或激活。
易语言excel操作类模块
易语言excel操作类模块
易语言是一种用于Windows平台的编程语言，可以通过其内置的Excel操作类模块对Excel进行操作。
以下是一个示例的易语言Excel操作类模块：
```easy
' Excel操作类模块
' 创建Excel对象
ExcelObj = 创建对象("Excel.Application")
' 打开Excel文件
ExcelObj.打开("path\to\excel\file.xlsx")
' 选择工作表
ExcelObj.选择工作表(1)
' 读取单元格内容
CellValue = ExcelObj.读取单元格("A1")
' 修改单元格内容
ExcelObj.写入单元格("A1", "New Value")
' 保存文件
ExcelObj.保存
' 关闭Excel
ExcelObj.关闭
ExcelObj = null
```
上述代码首先创建了一个Excel对象，然后通过“打开”方法打开了一个Excel文件，接着选择了第一个工作表，读取了单元格“A1”的内容，并将其修改为“New Value”，最后保存文件并关闭Excel。
需要注意的是，上述代码只是一个简单的示例，实际应用中可能需要进行更多的Excel操作，例如读取整个工作表或写入多个单元格等。
可以通过查阅易语言的官方文档来了解更多Excel操作类的方法和属性。
Excel开发入门（C#和C实例）
Excel开发入门（C#和C实例）Excel 开发文档这篇文章的例子采用Office 2003 英文版。
首先打开一个Excel2003 程序，然后选择菜单 Help — Microsoft Excel Help, 如下图：这样，右边会出现一个帮助子窗口，如下：选择 Table of Contents ，会出现下图。
最后一行 Microsoft Excel Visual Basic Reference 就是我们要找的文档。
该文档基本描述了 Excel 的主要对象的属性和方法。
如果你安装了 MSDN FOR 2005 英文版 , 你可以在下面的地址找到 Excel 的例子程序：ms-help://MS.MSDNQTR.v80.en/MS.MSDN.v80/MS.VisualStudio.v8 0.en/dv_fxsamples/local/sampleexecutables/Technologies/Interop/Applications/Offi ce/Excel.zipMSND 也包含了一个专题： Office Solutions Development 。
Excel 的 Application 对象概念Application 对象代表的是Excel 程序。
为了更好的理解Application 是什么，我们可以先启动一个Excel 程序，然后选择菜单栏最右边的关闭按钮，这样就可以关掉默认创建的空文档对象。
现在出现在我们眼前的就是 Application 对象：Excel 是一个 MDI 程序。
MDI （ Mutiple Document Interface —多文档界面）怎么理解呢？熟悉微软历史悠久的MFC 开发知识的程序员就知道：每一个MDI 窗口应用程序都有一个主框架窗口，主框架窗口可以拥有多个子框架窗口，每个子框架窗口管理一个 Document 对象 ( 文档对象负责管理数据) 和一个View 对象（视图对象负责显示数据，接受用户事件）。
VBA中的Excel界面自定义指南
VBA中的Excel界面自定义指南Excel是一个功能强大的电子表格程序，可以帮助用户处理大量的数据和执行各种运算。
而VBA（Visual Basic for Applications）是Excel的内置编程语言，可以让用户以编程的方式自动化Excel的操作。
在Excel中，用户可以通过自定义界面来优化他们的工作流程，提高工作效率。
本文将重点介绍如何使用VBA自定义Excel界面，以便更好地适应个人需求。
1. 自定义菜单和工具栏Excel的菜单和工具栏提供了许多常用功能和命令，但有时候我们可能需要更多特定于个人需求的功能。
通过VBA，我们可以自定义菜单和工具栏，添加自己定义的命令和功能。
首先，我们需要打开Excel的开发工具。
在Excel的菜单栏上，选择“文件”->“选项”，然后在弹出的对话框中选择“自定义功能区”。
点击“自定义功能区”后，可以看到“主选项卡”和“定制功能区”两栏。
在“定制功能区”中，我们可以添加自定义的菜单和工具栏。
在VBA编辑器中，我们可以使用以下代码来添加自定义的菜单：```vbaSub AddCustomMenu()mandBars("Worksheet MenuBar").Controls.Add(Type:=msoControlPopup,Temporary:=True).Caption = "自定义菜单"With mandBars("Worksheet Menu Bar").Controls("自定义菜单").Controls.Add.Caption = "命令1".Controls.Add.Caption = "命令2"End WithEnd Sub```这段代码会在Excel的菜单栏上添加一个名为“自定义菜单”的菜单，并在该菜单下添加两个命令：“命令1”和“命令2”。
BCB 6中开发Office(主要是Excel)程序的心得
在本文中，我将结合我的个人经验，和大家讨论一下在BCB 6中开发Office（主要是Excel）程序的心得。
一、用控件还是用OLEAutomation？这个问题应该说很常见。
我也在任何可能的情况下坚持我的主张：用BCB 6提供的Server 控件组。
如果你是用Delphi 6/7版本开发，那么用Delphi提供的Server控件组。
这样做有什么好处？我个人认为至少有如下两个：第一，维护结构化+OO的程序设计风格。
例如：ExcelApplication1->set_DisplayAlerts(0,false);ExcelApplication1->Quit();又如：int SheetCount=ExcelWorkbook1->Worksheets->Count;这些代码都还是比较直观的。
而且很具有OO的美感。
第二，强类型检查胜于弱类型检查。
如果使用OleGetProperty或者OleSetProperty函数，那么对传递给这两个函数的参数，是没有办法控制的。
例如，我完全可以随心设置一个单元格的属性FOO为100。
但是这样的函数调用在运行期一定会出错。
而使用Server控件就不会有这个问题——编译期就不能通过。
可以在编译期发现并纠正的错误，不要留到运行期去解决。
这是我的主张。
二、必要的辅助手段使用BCB编写控制Excel的程序，是很繁琐的。
因为有时编译通过后会出现难以琢磨的异常！又有一种很无助的感觉：BCB在这上面的帮助简直是BS。
CodeInsight的速度又是相当的慢，无法忍受！不过，我们不要轻易放弃。
根据我的经验，在BCB下要想好好掌握Excel编程，必须掌握三个获得帮助的途径。
这三个获得帮助的途径就是（以我个人喜好的程度降序排列）：1. Excel本身的宏命令。
我现在的习惯是，如果我要在BCB中实现一个功能，但是却不知道相应的方法和参数，我就会打开Excel，在随便一个Sheet中用宏记录下我要进行的操作，然后研究宏代码。
excel vba中对象常用的方法
excel vba中对象常用的方法Excel VBA中对象常用的方法一、Range对象：Range对象是Excel VBA中最常用的对象之一，它表示Excel表格中的一个区域。
Range对象有很多常用的方法，下面我就来介绍一些常见的方法。
1. Value方法：该方法用于获取或设置Range对象中的值。
例如，可以使用Range("A1").Value来获取A1单元格的值，也可以使用Range("A1").Value = 10来将A1单元格的值设置为10。
2. Copy方法：该方法用于复制Range对象。
例如，可以使用Range("A1:B2").Copy将A1:B2区域的内容复制到剪贴板上。
3. Paste方法：该方法用于粘贴剪贴板上的内容到Range对象中。
例如，可以使用Range("C1").Paste将剪贴板上的内容粘贴到C1单元格中。
4. Clear方法：该方法用于清除Range对象中的内容。
例如，可以使用Range("A1:B2").Clear将A1:B2区域的内容清除。
5. Select方法：该方法用于选中Range对象。
例如，可以使用Range("A1:B2").Select选中A1:B2区域。
二、Worksheet对象：Worksheet对象表示Excel工作簿中的一个工作表。
在VBA中，我们可以使用Worksheet对象来操作工作表。
1. Activate方法：该方法用于激活Worksheet对象，使其成为当前活动的工作表。
例如，可以使用Worksheets("Sheet1").Activate激活名为"Sheet1"的工作表。
2. Range方法：该方法用于获取指定工作表中的区域。
例如，可以使用Worksheets("Sheet1").Range("A1:B2")来获取"Sheet1"工作表中的A1:B2区域。
Excel-VBA常用对象（Application、Workbook、Worksheet、。。。
Excel-VBA常⽤对象（Application、Workbook、Worksheet、。
⼀、对象模型在VBE中“帮助（H）”——“Microsoft Visual Basic 帮助（H） F1”——“Visual Basic 语⾔参考”——“函数” 或者在VBE下快捷键“F1”地址：https:///zh-cn/office/vba/api/overview/excel/object-model⼆、Application对象（Excel顶层对象）1、ScreenUpdating属性是否控制屏幕更新，False表⽰关闭屏幕更新，True表⽰打开屏幕更新设置ScreenUpdating=False 关闭屏幕更新，将看不到程序的执⾏过程，可以加快程序的执⾏速度，让程序显得更直观，专业。
⽰例（为关闭屏幕更新下，会弹出对话框）：Sub InputTest()Cells.ClearContents '清除表中所有数据Range("A1:A10") = 100MsgBox"刚才在A1:A10输⼊数值100，你能看到结果吗？"Range("B1:B10") = 200MsgBox"刚才在B1:B10输⼊数值200，你能看到结果吗？"End Sub⽰例（关闭屏幕更新，看不到执⾏过程，程序最终执⾏完成才能看到最终结果）Sub InputTest()Cells.ClearContents '清除表中所有数据Application.ScreenUpdating = False'关闭屏幕更新Range("A1:A10") = 100MsgBox"刚才在A1:A10输⼊数值100，你能看到结果吗？"Range("B1:B10") = 200MsgBox"刚才在B1:B10输⼊数值200，你能看到结果吗？"Application.ScreenUpdating = True'恢复屏幕更新End Sub2、DisplayAlterts属性是否显⽰警告对话框，False为不显⽰，True为显⽰Sub delSht()Dim sht As WorksheetApplication.DisplayAlerts = False'不显⽰警告信息For Each sht In WorksheetsIf = Then'判断sht是不是活动⼯作表sht.Delete '删除sht代表的⼯作表End IfNextApplication.DisplayAlerts = True'恢复显⽰警告信息End Sub3、EnableEvents属性启⽤或禁⽤事件，False为禁⽤（不让事件发⽣），True为启⽤什么是事件？能被Excel认识的⼀个操作动作，例如“打开⼯作簿”、“关闭⼯作簿”等⽰例1：编写⼀个程序，当选中⼯作表的单元格时，⾃动在单元格中写⼊该单元格的地址End Sub⽰例2：选中活动单元格，记录对应单元格地址，并将活动单元格向下移动⼀个单元格Private Sub Worksheet_SelectionChange(ByVal Target As Range)Target.Value = Target.AddressApplication.EnableEvents = False'禁⽤事件Target.Offset(1, 0).Select '选中活动单元格下⾯的⼀个单元格Application.EnableEvents = True'启⽤事件End Sub4、WorksheetFunction属性使⽤WorksheetFunction调⽤Excel内置函数⽰例1：统计A1:A50单元格中数值⼤于1000的单元格有多少个？Sub CountTest()Dim mycount As Integer, rng As RangeFor Each rng In Range("A1:B50")If rng.Value > 1000Then mycount = mycount + 1NextMsgBox"A1:B50中⼤于1000的单元格个数为:" & mycountEnd Sub⽰例2：统计A1:A50单元格中数值⼤于1000的单元格有多少个？使⽤COUNTIF函数Sub CountTest()Dim mycount As Integermycount = Application.WorksheetFunction.CountIf(Range("A1:B50"), ">1000")MsgBox"A1:B50中⼤于1000的单元格个数为:" & mycountEnd Sub5、给Excel梳妆打扮Excel⼯作表界⾯相关命令Excel界⾯6、Application的常⽤属性三、Workbook对象Workbook⼯作簿Workbooks⼯作簿集合1、怎么引⽤⼯作簿引⽤⼯作簿，就是指明⼯作簿的位置及名称，共有两种⽅式⽅式⼀：利⽤索引号引⽤⼯作簿，Workbook.Item(3)，这⾥的Item可以省略，即Workbook(3)⽅式⼆：利⽤⼯作簿名称引⽤，Workbook("Book1")或Workbook("Book1.xls")，如果本地⽂件显⽰拓展名（且⽂件已经保存），则⽂件名必须带拓展名，否则会报错。
VBA文件操作指南
VBA文件操作指南在日常办公和开发工作中，我们经常需要对各种文件进行操作，例如创建、打开、保存、读取、修改、删除等操作。
VBA (Visual Basic for Applications) 是一种常用的宏语言，它可以与 Microsoft Office 应用程序集成，方便我们对文件进行各种操作。
本篇文章将为您介绍一些常见的 VBA 文件操作技巧，帮助您更高效地处理文件。
1. 创建新文件在 VBA 中，要创建一个新的文件，可以使用 CreateObject 函数以及相应的应用程序对象。
例如，要创建一个新的 Excel 文件，我们可以使用以下代码：```vbaDim ExcelApp As ObjectDim NewWorkbook As ObjectSet ExcelApp = CreateObject("Excel.Application")Set NewWorkbook = ExcelApp.Workbooks.Add```这段代码首先创建了一个 Excel 应用程序对象 ExcelApp，然后通过 Workbooks.Add 方法创建了一个新的工作簿对象NewWorkbook。
2. 打开现有文件通过 VBA，我们可以打开现有的文件进行进一步的操作。
例如，要打开一个 Excel 文件，我们可以使用以下代码：```vbaDim ExcelApp As ObjectDim Workbook As ObjectSet ExcelApp = CreateObject("Excel.Application")Set Workbook =ExcelApp.Workbooks.Open("C:\path\to\file.xlsx")```在这个示例中，我们先创建了一个 Excel 应用程序对象ExcelApp，然后使用 Workbooks.Open 方法打开了指定路径下的名为 file.xlsx 的 Excel 文件，并将其赋值给 Workbook 变量。
CreateObject（EXCEL.Application）
CreateObject(EXCEL.Application)VB调用OFFICE的代码，自己老忘记，留下来备用Private Sub Command1_Click()On Error GoTo err''以下是导出CPKCommand1.Enabled = FalseCommand1.Caption = "CPK导出中"DoEventsDat2 = Split(Replace(Out, """", ""), vbNewLine)Dat3 = Split(Dat2(2), ",")Dim x As Boolean '是否找到LSFor i = 0 To UBound(Dat3)If Dat3(i) = "LS" Then x = True: Exit ForNext iIf Not x ThenMsgBox "在数据文件里未找到电感（LS）数据，失败！", 64, "错误"ElseFor i2 = 3 To UBound(Dat2)Dat3 = Split(Dat2(i2), ",")ReDim Preserve Dat44(i2 - 3)Dat44(i2 - 3) = Dat3(i)Next i2End If'MsgBox Join(Dat44, ",")Dim Excel As ObjectDim Book As ObjectSet Excel = CreateObject("EXCEL.Application")Dim tt() As Bytett = LoadResData(401, "CPK")Open File & "_CPK数据.xls" For Binary As #1Put #1, , ttClose #1Set Book = Excel.Workbooks.Open(File & "_CPK数据.xls") Excel.Visible = FalseFor i2 = 0 To 99If i2 > UBound(Dat44) Then t3 = "" Else t3 =Val(Dat44(i))Excel.ActiveCell.Replace What:="$$" & i2 + 1 & "$", Replacement:=t3Next i2Excel.ActiveCell.Replace What:="$$tips*$", Replacement:=File & Space(10)Excel.ActiveCell.Replace What:="$$time$", Replacement:=NowBook.SaveExcel.QuitCommand1.Caption = "数据转换中"DoEvents'''以下是导出列表文件File = File & "_转换数据.CSV"Open File For Output As #1Print #1, OutClose #1Me.Height = 1425Command1.Caption = "转换完毕！"MsgBox Left(Replace(Replace(Out, ",", vbTab), """", ""), 1000), 64, "转换成功，以下是转换后的预览数据:"Command1.Caption = "转换导出CPK"Command1.Enabled = TrueExit Suberr:MsgBox err.DescriptionCommand1.Enabled = TrueExcel.QuitEnd Sub。
Excel开发人员参考（精品）
AddCustomList
为 自 定 义自 动填 充 和 /或 自 定义 排序 添 加自 定 义 列 表。
Calculate
计算所有打开 的工作簿、 工作簿中的 某张特定 工作 表或工作表指定区域中的单元格，如下表所示。
CalculateFull
强制对所有打开工作簿中的数据进行完整计算。
CalculateFullRebuild
撤消最后一次用户界面操作。
返回两个或多个区域的合并区域。
Volatile Wait 属性 名称 ActiveCell
ActiveChart ActivePrinter ActiveSheet
ActiveWindow
ActiveWorkbook
AddIns
AlertBeforeOverwriting AltStartupPath AlwaysUseClearType
删除一个自定义序列。
DisplayXMLSourcePane
打开“XML 源”任务窗格，并显示 XmlMap 参数指定 的 XML 映射。
DoubleClick
等价于双击活动单元格。
Evaluate
将一个 Microsoft Excel 名称转换为一个对象或者一 个值。
ExecuteExcel4Macro
返回或设置活动打印机的名称。String 类 型，可读写。
返回一个对象，它代表活动工作簿中或指定 的窗口或工作簿中的活动工作表（最上面的 工作表）。如果没有活动的工作表，则返回 Nothing。 返回一个 Window 对象，该对象表示活动 窗口（顶部窗口）。只读。如果没有打开的 窗口，则返回 Nothing。
如果 Microsoft Excel 在执行拖放编辑操作 过程中，在覆盖非空单元格之前显示一条消 息，则该属性值为 True。Boolean 类型， 可读写。
Application对象
Application对象1.Application对象：它代表Excel程序本身，实际编程中会用到它的属性和方法。
2.对象的属性:是指对象本身所具有的特性。
对象可以看作是物体，这个物体本身所具有的颜色、形状、大小、名称、位置等，都可以看作是这个对象的属性。
对象的属性有的是可以改变的，有的是不能改变的（只读属性）。
两个常用属性1ScreenUpdating属性ScreenUpdating属性，用来决定是否显示VBA程序的运行过程中间运算结果，默认为True显示。
如果将ScreenUpdating属性设置为False，将不显示程序的中间的执行结果，可以加快程序的执行速度，更直观和专业。
下面的代码在运行过程中会显示中间的执行结果：Sub InputTest()Cells.ClearContents '清除表中数据Range('A1:A10') = 100MsgBox '在A1到A10输入100，能看到结果吗？'Range('b1:b10') = 200MsgBox '在b1到b10输入200，能看到结果吗？'End Sub运行结果图：不显示计算结果到屏幕代码：Sub InputTest()Cells.ClearContents '清除表中数据Application.ScreenUpdating = FalseRange('A1:A10') = 100MsgBox '在A1到A10输入100，能看到结果吗？' '提示框显示输入内容Range('b1:b10') = 200MsgBox '在b1到b10输入200，能看到结果吗？'Application.ScreenUpdating = TrueEnd Sub看出关键部分了吗？但素，如果咱们程序比较小，是感受不到变化滴2DisplayAlerts属性Application的DisplayAlerts属性，用以决定运行中是否显示提示和警告信息，默认为True，如果不想显示，则把属性设为false。