工作表對象的屬性告一段落，從今天開(kāi)始我們講講工作表對象的方法。
Worksheet.Activate 方法
使當前工作表成為活動(dòng)工作表。
調用此方法等同于單擊工作表的標簽。
示例：
Worksheets('Sheet1').Activate
‘激活Sheet1工作表
Workbooks(2).Worksheets(3).Activate
‘激活工作簿集合中的第2個(gè)工作簿內的第3個(gè)工作表
Worksheet.Calculate 方法
計算特定工作表的單元格。
相當于按F9重新計算一次。
Worksheets('Sheet1').Calculate
Calculate方法在工作簿，工作表，單元格甚至應用對象中都有存在。
所有打開(kāi)的工作簿 Application.Calculate（或只是 Calculate）
指定工作表 Worksheets(1).Calculate
指定區域 Worksheets(1).Rows(2).Calculate
Worksheet.Copy 方法
將工作表復制到工作簿的另一位置。
語(yǔ)法：Copy(Before, After)
Before 可選 Variant 將要在其之前放置所復制工作表的工作表。如果指定了 After，則不能指定 Before。
After 可選 Variant 將要在其之后放置所復制工作表的工作表。如果指定了 Before，則不能指定 After。
說(shuō)明：如果既不指定 Before 也不指定 After，則 Microsoft Excel 將新建一個(gè)工作簿，其中包含復制的工作表。
工作表復制后，復制后的新工作表自動(dòng)成為活動(dòng)工作表。
示例：
Worksheets('Sheet1').CopyAfter:=Worksheets('Sheet3')
‘Sheet1工作表復制到SHEET3工作表之后。
Dim wb As Workbook
Set wb = Workbooks(2)
Worksheets(3).Copyafter:=wb.Worksheets(wb.Worksheets.Count)
‘把當前活動(dòng)工作簿內的第3個(gè)工作表復制到工作簿集合中的第2個(gè)工作簿中，放置在最后一個(gè)工作表之后。
Worksheet.Delete 方法
刪除工作表對象。
返回值：Boolean，表示刪除成功與否。
如果用戶(hù)在對話(huà)框中單擊“取消”，則返回 False，如果用戶(hù)單擊“刪除”，則返回 True。
在刪除 Worksheet 時(shí)，此方法顯示一個(gè)對話(huà)框，用于提示用戶(hù)確認是否刪除。默認情況下顯示此對話(huà)框。
如果不想顯示確認刪除的對話(huà)框，可以設置Application對象的DisplayAlerts屬性為False來(lái)實(shí)現。
示例：
Application.DisplayAlerts = False
Worksheets(1).Delete
Application.DisplayAlerts = True
在刪除時(shí)，必須保留一個(gè)可見(jiàn)的工作表對象，否則會(huì )產(chǎn)生代碼為1004的錯誤提示。
Worksheet.Move 方法
將工作表移到工作簿中的其他位置。
語(yǔ)法：Move(Before, After)
Before 可選 Variant 在其之前放置移動(dòng)工作表的工作表。如果指定了 After，則不能指定 Before。
After 可選 Variant 在其之后放置移動(dòng)工作表的工作表。如果指定了 Before，則不能指定 After。
如果既不指定 Before 也不指定 After，Microsoft Excel 將新建一個(gè)工作簿，其中包含所移動(dòng)的工作表。
移動(dòng)后的工作表將成為活動(dòng)工作表
示例：
Worksheets(1).Moveafter:=Workbooks(2).Worksheets(1)
ActiveSheet.Movebefore:=Workbooks(1).Worksheets(1)
‘移來(lái)移去，又還原了。
同理，在跨工作表移動(dòng)的時(shí)候，要注意工作簿中至少要保留一個(gè)可見(jiàn)的工作表，否則會(huì )產(chǎn)生1004錯誤（中間會(huì )提示是否關(guān) 閉工作簿，點(diǎn)否后接著(zhù)是1004錯誤）。
Worksheet.ExportAsFixedFormat 方法
將指定工作表導出為指定格式的文件。
語(yǔ)法：
ExportAsFixedFormat(Type, Filename,Quality, IncludeDocProperties, IgnorePrintAreas, From, To, OpenAfterPublish)
Type 必選 XlFixedFormatType 要導出為的文件格式類(lèi)型，可為xlTypePDF和xlTypeXPS。
Filename 可選 Variant 要保存的文件的文件名?？梢园ㄍ暾窂?，否則 Excel 會(huì )將文件保存在當前文件夾中。
Quality 可選 Variant 可選XlFixedFormatQuality。指定已發(fā)布文件的質(zhì)量。
IncludeDocProperties 可選 Variant 若要包括文檔屬性，則為True；否則為 False。
IgnorePrintAreas 可選 Variant 若要忽略發(fā)布時(shí)設置的任何打印區域，則為 True；否則為 False。
From 可選 Variant 發(fā)布的起始頁(yè)碼。如果省略此參數，則從起始位置開(kāi)始發(fā)布。
To 可選 Variant 發(fā)布的終止頁(yè)碼。如果省略此參數，則發(fā)布至最后一頁(yè)。
OpenAfterPublish 可選 Variant 若要在發(fā)布文件后在查看器中顯示文件，則為 True；否則為 False。
FixedFormatExtClassPtr 可選 Variant 指向FixedFormatExt 類(lèi)的指針。
示例：
ActiveSheet.ExportAsFixedFormatType:=xlTypePDF, Filename:='d:\test.pdf'
‘將當前活動(dòng)工作表輸出為PDF文件。
如果工作表為空白工作表，輸出時(shí)會(huì )產(chǎn)生1004錯誤，顯示“示發(fā)現可以打印的內容”。
聯(lián)系客服
