工作表对象的属性告一段落,从今天开始我们讲讲工作表对象的方法。 Worksheet.Activate 方法 使当前工作表成为活动工作表。 调用此方法等同于单击工作表的标签。 示例: Worksheets('Sheet1').Activate ‘激活Sheet1工作表 Workbooks(2).Worksheets(3).Activate ‘激活工作簿集合中的第2个工作簿内的第3个工作表 Worksheet.Calculate 方法 计算特定工作表的单元格。 相当于按F9重新计算一次。 Worksheets('Sheet1').Calculate Calculate方法在工作簿,工作表,单元格甚至应用对象中都有存在。 所有打开的工作簿 Application.Calculate(或只是 Calculate) 指定工作表 Worksheets(1).Calculate 指定区域 Worksheets(1).Rows(2).Calculate Worksheet.Copy 方法 将工作表复制到工作簿的另一位置。 语法:Copy(Before, After) Before 可选 Variant 将要在其之前放置所复制工作表的工作表。如果指定了 After,则不能指定 Before。 After 可选 Variant 将要在其之后放置所复制工作表的工作表。如果指定了 Before,则不能指定 After。 说明:如果既不指定 Before 也不指定 After,则 Microsoft Excel 将新建一个工作簿,其中包含复制的工作表。 工作表复制后,复制后的新工作表自动成为活动工作表。 示例: Worksheets('Sheet1').CopyAfter:=Worksheets('Sheet3') ‘Sheet1工作表复制到SHEET3工作表之后。 Dim wb As Workbook Set wb = Workbooks(2) Worksheets(3).Copyafter:=wb.Worksheets(wb.Worksheets.Count) ‘把当前活动工作簿内的第3个工作表复制到工作簿集合中的第2个工作簿中,放置在最后一个工作表之后。 Worksheet.Delete 方法 删除工作表对象。 返回值:Boolean,表示删除成功与否。 在删除 Worksheet 时,此方法显示一个对话框,用于提示用户确认是否删除。默认情况下显示此对话框。 如果不想显示确认删除的对话框,可以设置Application对象的DisplayAlerts属性为False来实现。 示例: Application.DisplayAlerts = False Worksheets(1).Delete Application.DisplayAlerts = True 在删除时,必须保留一个可见的工作表对象,否则会产生代码为1004的错误提示。 Worksheet.Move 方法 将工作表移到工作簿中的其他位置。 语法:Move(Before, After) Before 可选 Variant 在其之前放置移动工作表的工作表。如果指定了 After,则不能指定 Before。 After 可选 Variant 在其之后放置移动工作表的工作表。如果指定了 Before,则不能指定 After。 如果既不指定 Before 也不指定 After,Microsoft Excel 将新建一个工作簿,其中包含所移动的工作表。 移动后的工作表将成为活动工作表 示例: Worksheets(1).Moveafter:=Workbooks(2).Worksheets(1) ActiveSheet.Movebefore:=Workbooks(1).Worksheets(1) ‘移来移去,又还原了。 同理,在跨工作表移动的时候,要注意工作簿中至少要保留一个可见的工作表,否则会产生1004错误(中间会提示是否关 闭工作簿,点否后接着是1004错误)。 Worksheet.ExportAsFixedFormat 方法 将指定工作表导出为指定格式的文件。 语法: ExportAsFixedFormat(Type, Filename,Quality, IncludeDocProperties, IgnorePrintAreas, From, To, OpenAfterPublish) Type 必选 XlFixedFormatType 要导出为的文件格式类型,可为xlTypePDF和xlTypeXPS。 Filename 可选 Variant 要保存的文件的文件名。可以包括完整路径,否则 Excel 会将文件保存在当前文件夹中。 Quality 可选 Variant 可选XlFixedFormatQuality。指定已发布文件的质量。 IncludeDocProperties 可选 Variant 若要包括文档属性,则为True;否则为 False。 IgnorePrintAreas 可选 Variant 若要忽略发布时设置的任何打印区域,则为 True;否则为 False。 From 可选 Variant 发布的起始页码。如果省略此参数,则从起始位置开始发布。 To 可选 Variant 发布的终止页码。如果省略此参数,则发布至最后一页。 OpenAfterPublish 可选 Variant 若要在发布文件后在查看器中显示文件,则为 True;否则为 False。 FixedFormatExtClassPtr 可选 Variant 指向FixedFormatExt 类的指针。 示例: ActiveSheet.ExportAsFixedFormatType:=xlTypePDF, Filename:='d:\test.pdf' ‘将当前活动工作表输出为PDF文件。 如果工作表为空白工作表,输出时会产生1004错误,显示“示发现可以打印的内容”。 |
|
来自: fzchenwl > 《excel精英培训》