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。
核心关注：拓步ERP系统平台是覆盖了众多的业务领域、行业应用，蕴涵了丰富的ERP管理思想，集成了ERP软件业务管理理念，功能涉及供应链、成本、制造、CRM、HR等众多业务领域的管理，全面涵盖了企业关注ERP管理系统的核心领域，是众多中小企业信息化建设首选的ERP管理软件信赖品牌。
转载请注明出处：拓步ERP资讯网http://www.toberp.com/
本文标题：excel vba复制工作表实例
相关文章
