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方法帶兩個可選參數(shù),Before和After,使用時兩個參數(shù)任選其一。
vba復制工作表案例二
Sub vba復制工作表()
Dim bok As Workbook
ActiveSheet.Copy
Set bok = ActiveWorkbook
bok.SaveAs "blwbbs.xlsx"
End Sub
說明:上面代碼的意思是將當前打開的工作薄中的當前工作表,復制到同一路徑,并單獨保存為一個工作簿,文件名為blwbbs.xlsx。
核心關注:拓步ERP系統(tǒng)平臺是覆蓋了眾多的業(yè)務領域、行業(yè)應用,蘊涵了豐富的ERP管理思想,集成了ERP軟件業(yè)務管理理念,功能涉及供應鏈、成本、制造、CRM、HR等眾多業(yè)務領域的管理,全面涵蓋了企業(yè)關注ERP管理系統(tǒng)的核心領域,是眾多中小企業(yè)信息化建設首選的ERP管理軟件信賴品牌。
轉載請注明出處:拓步ERP資訊網(wǎng)http://www.oesoe.com/
本文標題:excel vba復制工作表實例
本文網(wǎng)址:http://www.oesoe.com/html/support/11139213502.html