Excel应用程序对象_Application对象_及其常用方法基本操作应用示例
(完整word)Application对象及其常用方法基本操作应用示例
Application对象及其常用方法基本操作应用示例Application对象代表整个Microsoft Excel应用程序，带有175个属性和52个方法，可以设置整个应用程序的环境或配置应用程序。
示例01—01：体验开/关屏幕更新（ScreenUpdating属性)Sub 关闭屏幕更新（)MsgBox ”顺序切换工作表Sheet1→Sheet2→Sheet3→Sheet2,先开启屏幕更新,然后关闭屏幕更新"Worksheets(1).SelectMsgBox "目前屏幕中显示工作表Sheet1"Application。
ScreenUpdating = TrueWorksheets（2）.SelectMsgBox "显示Sheet2了吗?”Worksheets(3).SelectMsgBox ”显示Sheet3了吗？"Worksheets(2).SelectMsgBox ”下面与前面执行的程序代码相同,但关闭屏幕更新功能"Worksheets(1）.SelectMsgBox ”目前屏幕中显示工作表Sheet1” & Chr（10) & ”关屏屏幕更新功能"Application.ScreenUpdating = FalseWorksheets(2）.SelectMsgBox ”显示Sheet2了吗？”Worksheets(3).SelectMsgBox "显示Sheet3了吗?"Worksheets(2)。
SelectApplication.ScreenUpdating = TrueEnd Sub示例说明:ScreenUpdating属性用来控制屏幕更新.当运行一个宏程序处理涉及到多个工作表或单元格中的大量数据时,若没有关闭屏幕更新，则会占用CPU的处理时间，从而降低程序的运行速度，而关闭该属性则可显著提高程序运行速度。
VBS连接EXCEL及其操作
VBS连接EXCEL及其操作VBS（Visual Basic Script）是一种Microsoft基于Visual Basic所开发的一种脚本编程语言。
通过VBS可以连接Excel，并对Excel进行各种操作，包括读取、修改、创建和删除Excel文件，读取和修改Excel中的数据，设置单元格样式和格式等。
要连接Excel文件，需要先创建一个Excel对象，然后通过Excel对象打开指定的Excel文件。
以下是一个连接Excel并读取数据的示例代码：```Set excelApp = CreateObject("Excel.Application")Set excelWorkbook =excelApp.Workbooks.Open("C:\Path\To\ExcelFile.xlsx")Set excelWorksheet = excelWorkbook.Worksheets("Sheet1")rowCount = edRange.Rows.CountcolumnCount = edRange.Columns.CountFor i = 1 To rowCountFor j = 1 To columnCountvalue = excelWorksheet.Cells(i, j).ValueMsgBox "Cell (" & i & ", " & j & "): " & valueNextNextexcelWorkbook.CloseexcelApp.Quit```上述代码首先创建了一个Excel应用程序对象excelApp，并调用Open方法打开指定的Excel文件。
然后，获取指定的工作表对象excelWorksheet，并通过UsedRange属性获取数据的有效范围。
VBA处理Excel中的多工作簿和多工作表
VBA处理Excel中的多工作簿和多工作表VBA（Visual Basic for Applications）是一种编程语言，可以用来处理Excel中的多个工作簿和工作表。
它提供了丰富的功能，可以自动进行数据处理、格式调整、图表生成等任务。
在本文中，我将详细介绍如何使用VBA处理Excel中的多个工作簿和工作表。
首先，我们先了解一下VBA中的对象和方法。
在Excel中，有几个重要的对象需要我们熟悉：Application对象、Workbook对象和Worksheet对象。
Application对象表示Excel应用程序本身，Workbook对象表示一个Excel工作簿，而Worksheet对象表示一个工作簿中的一个工作表。
我们可以使用这些对象的方法来操作和处理Excel中的数据。
接下来，我将分别介绍如何处理多个工作簿和多个工作表的情况。
处理多个工作簿：1. 打开工作簿：使用Workbooks.Open方法可以打开一个或多个工作簿。
例如，可以使用以下代码打开一个名为"Book1.xlsx"的工作簿：```Workbooks.Open("C:\Users\UserName\Documents\Book1.xlsx")```2. 复制数据：使用Workbook对象的Copy方法可以将一个工作簿的数据复制到另一个工作簿。
例如，可以使用以下代码将"Book1.xlsx"中的数据复制到"Book2.xlsx"中的Sheet1：Workbooks("Book1.xlsx").Sheets("Sheet1").UsedRange.CopyWorkbooks("Book2.xlsx").Sheets("Sheet1").Range("A1").PasteSpecial Paste:=xlPasteValues```3. 保存工作簿：使用Workbook对象的Save方法可以保存工作簿。
(完整word版)VB操作EXCEL表的常用方法
VB操作EXCEL表的常用方法(设计值，颜色，大小）2009-05—18 15：37VB是常用的应用软件开发工具之一，由于VB的报表功能有限,而且一但报表格式发生变化，就得相应修改程序,给应用软件的维护工作带来极大的不便。
因此有很多程序员现在已经充分利用EXECL的强大报表功来实现报表功能.但由于VB与EXCEL由于分别属于不同的应用系统，如何把它们有机地结合在一起，是一个值得我们研究的课题。
一、 VB读写EXCEL表：VB本身提自动化功能可以读写EXCEL表,其方法如下:1、在工程中引用Microsoft Excel类型库:从"工程"菜单中选择"引用”栏;选择Microsoft Excel 9.0 Object Library(EXCEL2000)，然后选择”确定”。
表示在工程中要引用EXCEL类型库。
2、在通用对象的声明过程中定义EXCEL对象：Dim xlApp As Excel.ApplicationDim xlBook As Excel。
WorkBookDim xlSheet As Excel.Worksheet3、在程序中操作EXCEL表常用命令：Set xlApp = CreateObject(”Excel。
Application") ’创建EXCEL对象Set xlBook = xlApp。
Workbooks。
Open(”文件名") '打开已经存在的EXCEL工件簿文件xlApp.Visible = True ’设置EXCEL对象可见（或不可见）Set xlSheet = xlBook。
Worksheets（”表名”） '设置活动工作表xlApp.Cells(row， col） =值 '给单元格（row，col）赋值XLApp。
Cells（i， 1).Interior。
ColorIndex = i'设计单元格颜色i=1——56xlSheet.PrintOut '打印工作表xlBook。
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")，如果本地⽂件显⽰拓展名（且⽂件已经保存），则⽂件名必须带拓展名，否则会报错。
Excel.Application手册(转)
Excel.Application手册（转）2011-05-31 11:49:36| 分类：工作 |字号订阅因为QTP框架需要使用Excel.Application对象，保存一份相关函数说明定制模块行为(1) Option Explicit '强制对模块内所有变量进行声明Option Private Module '标记模块为私有，仅对同一工程中其它模块有用，在宏对话框中不显示Option Compare Text '字符串不区分大小写Option Base 1 '指定数组的第一个下标为1(2) On Error Resume Next '忽略错误继续执行VBA代码,避免出现错误消息(3) On Error GoTo ErrorHandler '当错误发生时跳转到过程中的某个位置(4) On Error GoTo 0 '恢复正常的错误提示(5) Application.DisplayAlerts=False '在程序执行过程中使出现的警告框不显示(6) Application.ScreenUpdating=False '关闭屏幕刷新Application.ScreenUpdating=True '打开屏幕刷新(7) Application.Enable.CancelKey=xlDisabled '禁用Ctrl+Break中止宏运行的功能工作簿(8) Workbooks.Add() '创建一个新的工作簿(9) Workbooks(“book1.xls”).Activate '激活名为book1的工作簿(10) ThisWorkbook.Save '保存工作簿(11) ThisWorkbook.close '关闭当前工作簿(12) ActiveWorkbook.Sheets.Count '获取活动工作薄中工作表数(13) '返回活动工作薄的名称(14) …返回当前工作簿名称Thi sWorkbook.FullName …返回当前工作簿路径和名称(15) ActiveWindow.EnableResize=False …禁止调整活动工作簿的大小(16) Application.Window.Arrange xlArrangeStyleTiled …将工作簿以平铺方式排列(17) ActiveWorkbook.WindowState=xlMaximized …将当前工作簿最大化工作表(18) edRange.Rows.Count …当前工作表中已使用的行数(19) Rows.Count …获取工作表的行数(注：考虑向前兼容性)(20) Sheets(Sheet1).Name= “Sum” '将Sheet1命名为Sum(21) ThisWorkbook.Sheets.Add Before:=Worksheets(1) '添加一个新工作表在第一工作表前(22) ActiveSheet.MoveAfter:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count) '将当前工作表移至工作表的最后(23) Worksheets(Array(“sheet1”,”sheet2”)).Select '同时选择工作表1和工作表2(24) Sheets(“sheet1”).Delete或Sheets(1).Delete '删除工作表1(25) ActiveWorkbook.Sheets(i).Name '获取工作表i的名称(26) ActiveWindow.DisplayGridlines=Not ActiveWindow.DisplayGridlines '切换工作表中的网格线显示，这种方法也可以用在其它方面进行相互切换，即相当于开关按钮(27) ActiveWindow.DisplayHeadings=Not ActiveWindow.DisplayHeadings …切换工作表中的行列边框显示(28) edRange.FormatConditions.Delete …删除当前工作表中所有的条件格式(29) Cells.Hyperlinks.Delete …取消当前工作表所有超链接(30) ActiveSheet.PageSetup.Orientation=xlLandscape或ActiveSheet.PageSetup.Orientation=2 '将页面设置更改为横向(31) ActiveSheet.PageSetup.RightFooter=ActiveWorkbook.FullName …在页面设置的表尾中输入文件路径ActiveSheet.PageSetup.LeftFooter=erName …将用户名放置在活动工作表的页脚单元格/单元格区域(32) ActiveCell.CurrentRegion.Select 或Range(ActiveCell.End(xlUp),ActiveCell.End(xlDown)).Select '选择当前活动单元格所包含的范围，上下左右无空行(33) Cells.Select …选定当前工作表的所有单元格(34) Range(“A1”).ClearContents '清除活动工作表上单元格A1中的内容Selection.ClearContents '清除选定区域内容Range(“A1:D4”).Clear '彻底清除A1至D4单元格区域的内容，包括格式(35) Cells.Clear '清除工作表中所有单元格的内容(36) ActiveCell.Offset(1,0).Select '活动单元格下移一行，同理，可下移一列(37) Range(“A1”).Offset(ColumnOffset:=1)或Range(“A1”).Offset(,1) …偏移一列Range(“A1”).Offset(Rowoffset:=-1)或Range(“A1”).Offset(-1) …向上偏移一行(38) Range(“A1”).Copy Range(“B1”) '复制单元格A1，粘贴到单元格B1中Range(“A1:D8”).Copy Range(“F1”) '将单元格区域复制到单元格F1开始的区域中Range(“A1:D8”).Cut Range(“F1”) '剪切单元格区域A1至D8，复制到单元格F1开始的区域中Range(“A1”).CurrentRegion.Copy Sheets(“Sheet2”).Range(“A1”) '复制包含A1的单元格区域到工作表2中以A1起始的单元格区域中注：CurrentRegion属性等价于定位命令，由一个矩形单元格块组成，周围是一个或多个空行或列(39) ActiveWindow.RangeSelection.Value=XX '将值XX输入到所选单元格区域中(40) ActiveWindow.RangeSelection.Count '活动窗口中选择的单元格数(41) Selection.Count '当前选中区域的单元格数(42) GetAddress=Replace(Hyperlinkcell.Hyperlinks(1).Address,mailt o:,””) …返回单元格中超级链接的地址并赋值(43) TextColor=Range(“A1”).Font.ColorIndex …检查单元格A1的文本颜色并返回颜色索引Range(“A1”).Interior.ColorIndex …获取单元格A1背景色(44) cells.count …返回当前工作表的单元格数(45) Selection.Range(“E4”).Select …激活当前活动单元格下方3行，向右4列的单元格(46) Cells.Item(5,”C”) …引单元格C5Cells.Item(5,3) …引单元格C5(47) Range(“A1”).Offset(RowOffset:=4,ColumnOffset:=5)或Range(“A1”).Offset(4,5) …指定单元格F5(48) Range(“B3”).Resize(RowSize:=11,ColumnSize:=3)Range(“B3”).Resize(11,3) …创建B3：D13区域(49) Range(“Data”).Resize(,2) …将Data区域扩充2列(50) Union(Range(“Data1”),Range(“Data2”)) …将Data1和Data2区域连接(51) Intersect(Range(“Data1”),Range(“Data2”)) …返回Data1和Data2区域的交叉区域(52) Range(“Data”).Count …单元格区域Data中的单元格数Range(“Data”). Columns.Count …单元格区域Data中的列数Range(“Data”). Rows.Count …单元格区域Data中的行数(53) Selection.Columns.Count …当前选中的单元格区域中的列数Selection.Rows.Count …当前选中的单元格区域中的行数(54) Selection.Areas.Count …选中的单元格区域所包含的区域数(55) edRange.Row …获取单元格区域中使用的第一行的行号(56) Rng.Column …获取单元格区域Rng左上角单元格所在列编号(57) ActiveSheet.Cells.Speci alCells(xlCellTypeAllFormatConditions) …在活动工作表中返回所有符合条件格式设置的区域(58) Range(“A1”).AutoFilter Field:=3,VisibleDropDown:=False …关闭由于执行自动筛选命令产生的第3个字段的下拉列表名称(59) Range(“A1：C3”).Name=“computer” …命名A1：C3区域为computer或Range(“D1：E6”).Name=“Sheet1!book” …命名局部变量，即Sheet1上区域D1：E6为book或Names(“computer”).Name=“robot” …将区域computer重命名为robot(60) Names(“book”).Delete …删除名称(61) Names.Add Name:=“ContentList”，RefersTo:=“=OFFSET(Sheet1!A2,0,0,COUNTA(Sheet2!$A:$A))” …动态命名列(62) Names.Add Name:=“Company”,RefersTo:=“CompanyCar” …命名字符串CompanyCar(63) Names.Add Name:=“Total”,RefersTo:=123456 …将数字123456命名为Total。
VBA读写EXCEL文档的一般方法
VBA读写EXCEL文档的一般方法VBA (Visual Basic for Applications) 是一种编程语言，可以与Microsoft Office应用程序（如Excel）进行交互。
在使用VBA读写Excel文档时，可以使用一些常见的方法和技巧来实现各种操作。
以下是一些常见的VBA读写Excel文档的一般方法：打开和保存Excel文档：1. 使用Application对象的Workbooks.Open方法打开一个Excel文件。
例如，可以使用以下代码打开名为"Sample.xlsx"的Excel文件：```vbaDim wb As WorkbookSet wb = Application.Workbooks.Open("C:\Path\To\Sample.xlsx") ```2. 使用Workbook对象的Save方法保存Excel文件。
例如，可以使用以下代码保存当前打开的Excel文件：```vbawb.Save```添加和删除工作表：1. 使用Workbook对象的Worksheets.Add方法添加一个新的工作表。
例如，可以使用以下代码添加一个名为"Sheet1"的新工作表：```vbaDim ws As WorksheetSet ws = wb.Worksheets.Add = "Sheet1"```2. 使用Worksheet对象的Delete方法删除一个工作表。
例如，可以使用以下代码删除名为"Sheet1"的工作表：```vbawb.Worksheets("Sheet1").Delete```读取和写入单元格数据：1. 使用Worksheet对象的Cells属性可以直接读取或写入单元格的数据。
例如，可以使用以下代码读取"A1"单元格的数据并将其存储到变量中：```vbaDim cellValue As VariantcellValue = ws.Cells(1, 1).Value```2. 使用Worksheet对象的Range属性可以同时读取或写入多个单元格的数据。
Microsoft Excel 对象模型一览
CustomProperties 集合对象_由代表附加信息的 CustomProperty 对象组成的集合 CustomProperty 对象_代表标识符信息 SmartTagActions 集合对象_SmartTagAction 对象的集合，该集合代表用智能标记可执行的操作 SmartTagAction 对象成员_代表可用智能标记执行的操作 Protection 对象_代表工作表可使用的各种保护选项类型 AllowEditRanges 集合对象_所有 AllowEditRange 对象的集合，这些对象代表受保护工作表上的可编辑单元格 AllowEditRange 对象_代表受保护的工作表上可进行编辑的单元格 UserAccessList 集合对象_代表受保护区域用户访问权限的 UserAccess 对象的集合 UserAccess 对象_代表对受保护区域的用户访问 Comments 集合对象_单元格批注的集合 Comment 对象_代表一条单元格批注 Shape 对象_代表绘图层中的对象，例如自选图形、任意多边形、OLE 对象或图片 CustomProperties 集合对象_由代表附加信息的 CustomProperty 对象组成的集合 CustomProperty 对象_代表标识符信息 HPageBreaks 集合对象_打印区域内水平分页符的集合 HPageBreak 对象_代表水平分页符 VPageBreaks 集合对象_打印区域中垂直分页符的集合 VPageBreak 对象_代表一个垂直分页符 HyperLinks 集合对象_代表工作表或区域的超链接的集合 HyperLink 对象 _代表一个超链接 Scenarios 集合对象_指定工作表上所有 Scenario 对象的集合 Scenario 对象_代表工作表上的一个方案 OLEObjects 集合对象_指定工作表中所有 OLEObject 对象的集合 OLEObject 对象_代表工作表上的一个 ActiveX 控件或链接或嵌入的 OLE 对象 Outline 对象_代表工作表上的分级显示 PageSetup 对象_代表页面设置说明 Graphic 对象_包括应用于页眉和页脚的图片对象的属性 QueryTables 集合对象_QueryTable 对象的集合 QueryTable 对象_代表一个利用从外部数据源（如 SQL Server 或 Microsoft Access 数据库）返回的数据生成的工作表表格 Parameters 集合对象_指定的查询表的 Parameter 对象的集合 Parameter 对象_代表一个在参数查询中使用的参数
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
第一章Excel应用程序对象(Application对象)及其常用方法基本操作应用示例Application对象代表整个Microsoft Excel应用程序，带有175个属性和52个方法，可以设置整个应用程序的环境或配置应用程序。
示例01-01:体验开/关屏幕更新(ScreenUpdating属性）Sub关闭屏幕更新(）MsgBox "顺序切换工作表Sheet1—Sheet2—Sheet3—Sheet2，先开启屏幕更新，然后关闭屏幕更新"Worksheets(1).SelectMsgBox "目前屏幕中显示工作表Sheet rApplication.ScreenUpdating = TrueWorksheets(2).SelectMsgBox "显示 Sheet2了吗？“Worksheets(3).SelectMsgBox "显示 Sheet3了吗？“Worksheets(2).SelectMsgBox "下面与前面执行的程序代码相同，但关闭屏幕更新功能"Worksheets(1).SelectMsgBox "目前屏幕中显示工作表Sheet1" & Chr(10) & "关屏屏幕更新功能"Application.ScreenUpdating = FalseWorksheets(2).SelectMsgBox "显示 Sheet2了吗？“Worksheets(3).SelectMsgBox "显示 Sheet3了吗？“Worksheets(2).SelectApplication.ScreenUpdating = TrueEnd Sub示例说明：ScreenUpdating属性用来控制屏幕更新。
当运行一个宏程序处理涉及到多个工作表或单元格中的大量数据时，若没有关闭屏幕更新，则会占用CPU的处理时间，从而降低程序的运行速度，而关闭该属性则可显著提高程序运行速度。
示例0彳-02:使用状态栏(StatusBar属性）Sub testStatusBar()Application.DisplayStatusBar = True '开启状态栏显示'赋值状态栏显示的文本Application.StatusBar = ""End Sub示例说明：StatusBar属性用来指定显示在状态栏上的信息。
若不想再显示状态栏文本，可使用Application.StatusBar = False语句关闭状态栏显示，也可以在程序开始将原先的状态栏设置存储，如使用语句oldStatusBar = Application.DisplayStatusBar将状态栏原来的信息存储在变量oldStatusBar，在程序运行完成或退出时，将变量重新赋值给状态栏，如使用语句 Application.DisplayStatusBar = oldStatusBar，以恢复状态栏原状。
示例01-03:处理光标(Cursor属性）Sub ViewCursors()Application.Cursor = xlNorthwestArrowMsgBox "您将使用箭头光标，切换到Excel界面查看光标形状"Application.Cursor = xllBeamMsgBox "您将使用工形光标,切换到Excel界面查看光标形状"Application.Cursor = xlWaitMsgBox "您将使用等待形光标，切换到Excel界面查看光标形状"Application.Cursor = xlDefaultMsgBox "您已将光标恢复为缺省状态"End Sub示例01-04：获取系统信息Sub GetSystemInfo()MsgBox "Excel版本信息为:"&A p p l i c a t i o n.C a l c u l a t i o n V e r s i o nMsgBox "Excel当前允许使用的内存为:"& Application.MemoryFreeMsgBox "Excel当前已使用的内存为:"& Application.MemoryUsedMsgBox "Excel可以使用的内存为:"& Application.MemoryTotalMsgBox "本机操作系统的名称和版本为:"& Application.OperatingSystemMsgBox "本产品所登记的组织名为:"& anizationNameMsgBox "当前用户名为:"& erNameMsgBox "当前使用的 Excel版本为:"& Application.VersionEnd Sub示例说明：可以使用给UserName属性赋值以设置用户名称。
示例01-05：退出复制/剪切模式(CutCopyMode属性）Sub exitCutCopyMode()Application.CutCopyMode = FalseEnd Sub示例说明：退出复制/剪切模式后，在程序运行时所进行的复制或剪切操作不会在原单元格区域留下流动的虚框线。
需要提醒的是，在程序运行完后，应使用Application.CutCopyMode =False语句恢复该属性的默认设置。
示例01』6：禁止弹出警告信息(Disp丨ayA丨erts属性）Sub testAlertsDisplay()Application.DisplayAlerts = FalseEnd Sub示例说明：在程序运行过程中，有时由于Excel本身设置的原因，会弹出对话框，从而中断程序的运行，您可以在程序之前加上Application.DisplayAlerts = False语句以禁止弹出这些对话框而不影响程序正常运行。
需要注意的是，在程序运行结束前，应使DisplayAlerts 属性恢复为缺省状态，即使用语句Application.DisplayAlerts = True。
该属性的默认设置为True，当将该属性设置为False时，Excel会使直接使用对话框中默认的选择，从而不会因为弹出对话框而影响程序运行。
示例01-07：将Excel全屏幕显示Sub testFullScreen()MsgBox "运行后将Excel的显示模式设置为全屏幕"Application.DisplayFullScreen = TrueMsgBox "恢复为原来的状态"Application.DisplayFullScreen = FalseEnd Sub示例01-08： Excel启动的文件夹路径Sub ExcelStartfolder()MsgBox "Excel启动的文件夹路径为：“& Chr(10) & Application.StartupPathEnd Sub示例01-09：打开最近使用过的文档Sub OpenRecentFiles()MsgBox "显示最近使用过的第三个文件名，并打开该文件"MsgBox "最近使用的第三个文件的名称为:"&A p p l i c a t i o n.R e c e n t F i l e s(3).N a m eApplication.RecentFiles(3).OpenEnd Sub示例01-10：打开文件(FindFi丨e方法）Sub FindFileOpen()On Error Resume NextMsgBox "请打开文件"，vbOKOnly + vblnformation,"打开文件"If Not Application.FindFile ThenMsgBox "文件未找到"，vbOKOnly + vblnformation,"打开失败"End IfEnd Sub示例说明：本示例将显示“打开”文件对话框，若用户未打开文件(即点击“取消”按钮)，则会显示“打开失败”信息框。
示例中使用了FindRle方法，用来显示“打开”对话框并让用户打开一个文件。
如果成功打开一个新文件，则该值为True。
如果用户取消了操作并退出该对话框，则该值为 False。
示例01-11：文件对话框操作(FileDialog属性）Sub UseFileDialogOpen()Dim丨ngCount As Long'开启"打开文件"对话框With Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = True.Show'显示所选的每个文件的路径For丨ngCount = 1 To .Selectedltems.CountMsgBox .Selectedltems(丨ngCount)Next lngCountEnd WithEnd Sub示例说明：本示例显示“打开文件”对话框，当用户在其中选择一个或多个文件后，将依次显示每个文件的路径。
其中，FileDialog属性返回打开和保存对话框中一系列对象的集合，您可以对该集合对象的属性进行进一步的设置，如上例中的AllowMultiSelect属性设置为True将允许用户选择多个文件。
示例01-12：保存Excel的工作环境Sub保存 Excel的工作环境()MsgBox "将Excel的工作环境保存到D:\ExcelSample\中"Application.SaveWorkspace "D:\ExcelSample\Sample"End Sub示例说明：运行本程序后，将工作簿以带后缀名.xlw保存到D盘的ExcelSample文件夹中，生成的文件全名为Sample.xlw。
当改变工作簿并保存时，Excel会询问是覆盖原文件还是保存副本。
示例01-13：改变Excel工作簿名字(Caption属性）Sub SetCaption()Application.Caption = "My ExcelBook"End Sub示例说明：运行本程序后，将工作簿左上角Excel图标右侧的“Microsoft Excel”改为“MyExce旧ook，，。