Excel中的vba復(fù)制工作表,一般是使用Copy方法。但往往復(fù)制的要求不同,因此代碼也有所不同。我們以兩個(gè)常用的vba復(fù)制工作表例子來(lái)加以說(shuō)明和學(xué)習(xí)。
vba復(fù)制工作表案例一
Sub vba復(fù)制工作表()
Worksheets("sheet1").Copy Before:=Worksheets("sheet2")
End Sub
說(shuō)明:上面代碼的意思是:在當(dāng)前工作簿中復(fù)制工作表sheet1并將所復(fù)制的工作表放在工作表sheet2之前。
又比如:Worksheets("sheet2").Copy After:=Worksheets("sheet3"),這句代碼的意思就是在當(dāng)前工作簿中復(fù)制工作表sheet2并將所復(fù)制的工作表放在工作表sheet3之后。
Copy方法帶兩個(gè)可選參數(shù),Before和After,使用時(shí)兩個(gè)參數(shù)任選其一。
vba復(fù)制工作表案例二
Sub vba復(fù)制工作表()
Dim bok As Workbook
ActiveSheet.Copy
Set bok = ActiveWorkbook
bok.SaveAs "blwbbs.xlsx"
End Sub
說(shuō)明:上面代碼的意思是將當(dāng)前打開的工作薄中的當(dāng)前工作表,復(fù)制到同一路徑,并單獨(dú)保存為一個(gè)工作簿,文件名為blwbbs.xlsx。
核心關(guān)注:拓步ERP系統(tǒng)平臺(tái)是覆蓋了眾多的業(yè)務(wù)領(lǐng)域、行業(yè)應(yīng)用,蘊(yùn)涵了豐富的ERP管理思想,集成了ERP軟件業(yè)務(wù)管理理念,功能涉及供應(yīng)鏈、成本、制造、CRM、HR等眾多業(yè)務(wù)領(lǐng)域的管理,全面涵蓋了企業(yè)關(guān)注ERP管理系統(tǒng)的核心領(lǐng)域,是眾多中小企業(yè)信息化建設(shè)首選的ERP管理軟件信賴品牌。
轉(zhuǎn)載請(qǐng)注明出處:拓步ERP資訊網(wǎng)http://www.ezxoed.cn/
本文標(biāo)題:excel vba復(fù)制工作表實(shí)例
本文網(wǎng)址:http://www.ezxoed.cn/html/support/11139213502.html