跟烟花入门VBA之51：工作表对象Worksheet（六）

跟烟花入门VBA之51：工作表对象Worksheet（六）
工作表对象的属性告一段落，从今天开始我们讲讲工作表对象的方法。

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.C ount)
‘把当前活动工作簿内的第3个工作表复制到工作簿集合中的第2个工作簿中，放置在最后一个工作表之后。

Worksheet.Delete 方法
删除工作表对象。

返回值：Boolean，表示删除成功与否。

如果用户在对话框中单击“取消”，则返回 False，如果用户单击“删除”，则返回 True。

在删除 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错误，显示“示发现可以打印的内容”。