文章介紹兩個excel中vba復制工作表的例子。Vba復制工作表,通常是用copy方法。
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。