Excel_VBA常用对象讲述.ppt

单元格和区域的操作 求数据区末尾列号： c = Range(A1).End(xlToRight).Column 求A1单元格数据区末尾列号 c = Cells(1, 1).End(xlToRight).Column 求A1单元格数据区末尾列号 c = Cells(1, 256).End(xlToLeft).Column 求第1行数据区末尾列号 c = Rows(1).End(xlToRight).Column 求第1行数据区末尾列号 实例 编程序，打印九九乘法表如下。 实例 编程序，打印九九乘法表如下。 * * * * 通过Application对象提供的属性和方法，可控制Excel应用程序的外观和状态。 * CurrentRegion假定在工作表 Sheet1 中有一个包含标题行的表。本示例选定该表，但不选定标题行。运行本示例之前，活动单元格必须处于该表中。 * Excel VBA 常用对象 Excel对象模型的层次结构。 * Application 对象 Application对象代表整个Microsoft Excel应用程序本身，所有打开的工作簿都是属于一个Excel应用程序，即一个Application对象。 通过Application对象提供的属性和方法，可控制Excel应用程序的外观和状态。 使用Application对象 * Application对象的常用属性 获取对象的引用 ActiveWorkbook属性 ActiveSheet属性 ActiveCell属性 Workbooks属性 Sheets属性 Cells属性 Selection属性 WorksheetFunction属性 使用Application对象 * 使用Application对象 VBA操作 立即窗口输入 获取当前应用程序名称 ?Application.Name 将Excel应用程序标题改为“My Application” Application.Caption=My Application 将Excel应用程序标题改回为“Microsoft Excel” Application.Caption=Microsoft Excel” 获取Excel.exe保存的文件夹路径 ?Application.Path 退出 Excel Application.Quit Application 对象 ActiveSheet 属性 返回活动工作表。如果没有活动的工作表，则返回 Nothing。 Sub 活动工作表() Debug.Print 当前活动工作表是：; Application.ActiveSheet.Name End Sub Workbook对象和 Workbooks集合 Workbook 对象：代表一个 Microsoft Excel 工作簿 Workbooks 对象：Microsoft Excel 应用程序中当前打开的所有 Workbook 对象的集合 Workbook.Name 属性：它代表对象的名称 Workbook.FullName 属性：返回对象的名称（以字符串表示），包括其磁盘路径 Workbook.Sheets 属性：返回一个 Sheets 集合，它代表指定工作簿中所有工作表 Workbooks.Add 方法：新建工作簿，新建的工作簿将成为活动工作簿。 Workbooks.Open 方法 ：打开一个工作簿 Workbooks.Close 方法：关闭对象 Workbook对象和 Workbooks集合 Workbook对象和 Workbooks集合 例1 创建一个新的工作簿。 Workbooks.Add 由 Add 方法返回的Workbook 对象分配给对象变量 NewBook。然后，对 NewBook进行操作。 Set NewBook = Workbooks.Add NewBook.SaveAs Filename:=Test.xls Set语句语法形式： Set 变量或属性名 = {[New] 对象表达式|Nothing} New创建对象的一个新实例。 Nothing释放该对象资源。 Workbook对象和 Workbooks集合 例2 打开工作簿用Open方法： Workbooks.Open (“D:\Test.xls”) 即打开D盘根目录中的Test.xls 工作簿。 Worksheet对象和 Worksheets集合 Worksheet 对象：代表一个工作表 Worksheets 对象：指定的或活动工作簿中所有 Worksheet 对象的集合 常用属性 Worksheet.Cells 属性 ：返回一个 Range 对