excel vba復制工作表辦法及案例圖文教程

Excel中的vba復制工作表，一般是使用Copy方法。但往往復制的要求不同，因此代碼也有所不同。我們以兩個常用的vba復制工作表例子來加以說明和學習。

　　vba復制工作表案例一

Sub vba復制工作表()
? Worksheets("sheet1").Copy Before:=Worksheets("sheet2")
End Sub

　　說明：上面代碼的意思是：在當前工作簿中復制工作表sheet1并將所復制的工作表放在工作表sheet2之前。

　　又比如：Worksheets("sheet2").Copy After:=Worksheets("sheet3")，這句代碼的意思就是在當前工作簿中復制工作表sheet2并將所復制的工作表放在工作表sheet3之后。

　　Copy方法帶兩個可選參數，Before和After，使用時兩個參數任選其一。

　　vba復制工作表案例二

Sub vba復制工作表()
??? Dim bok As Workbook
??? ActiveSheet.Copy
??? Set bok = ActiveWorkbook
??? bok.SaveAs "blwbbs.xlsx"
End Sub

　　說明：上面代碼的意思是將當前打開的工作薄中的當前工作表，復制到同一路徑，并單獨保存為一個工作簿，文件名為blwbbs.xlsx。