Excel vba复制工作表实例

excel vba复制工作表实例

文章介绍两个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 WorkbookActiveSheet.CopySet bok = ActiveWorkbookbok.SaveAs "blwbbs.xlsx"End Sub

说明：上面代码的意思是将当前打开的工作薄中的当前工作表，复制到同一路径，并单独保存为一个工作簿，文件名为blwbbs.xlsx。

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。