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

excel拆分工作表代码

[日期:2011-12-14]   来源:IT部落窝  作者:IT部落窝   阅读:2079[字体: ]
内容提要:文章介绍excel拆分工作表的方法,以及excel拆分工作表的操作步骤。

  excel拆分工作表,是一个很典型的应用。比如一个excel工作簿中,有60张工作表。现在想利用excel拆分工作表来将这60个工作表分别下发给不同的人员。

  下面这段excel拆分工作表的代码可以实现将excel拆分为不同的excel文件。

  使用方法如下:
  1.打开需要进行拆分的excel文件。
  2.按ALT+F11,打开VBE编辑器。
  3.单击插入——模块,复制下面的代码,然后按F5键运行。
  通过三步就可以完成excel拆分工作表,拆分的工作表文件存放在和此文件同一路径之下。

Sub 拆分工作表()
Dim sht As Worksheet
Application.DisplayAlerts = False
For Each sht In Worksheets
    sht.Copy
    ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & sht.Name & ".xls"
    ActiveWorkbook.Close
Next
Application.DisplayAlerts = True
End Sub

  下面是excel拆分工作表的一个演示截图:

excel拆分工作表

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