室内设计培训
平面设计培训
部落窝教育
网站首页 >> Excel教程 >> 文章内容

excel vba复制工作表实例

[日期:2012-02-19]   来源:IT部落窝  作者:IT部落窝   阅读:7467[字体: ]
内容提要:文章介绍两个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。

IT部落窝PS,CDR,213班 分享到: QQ空间 新浪微博 腾讯微博 人人网
photoshop教程
Photoshop教程
平面设计教程
Photoshop教程