专栏名称: 爱数据原统计网

中国统计网（www.itongji.cn），国内最大的数据分析门户网站。提供数据分析行业资讯，统计百科知识、数据分析、商业智能(BI)、数据挖掘技术，Excel、SPSS、SAS、R等数据分析软件等在线学习平台。

一键将总表按工作表拆分为多个工作簿文件

爱数据原统计网 · 公众号 · BI · 2017-02-25 21:46

正文

今天我来结合一个实际案例，介绍将总表按工作表拆分为多个工作簿的方法。

比如：在下图所示数据总表中包含多个工作表，需要将每个工作表拆分为多个单独的文件。

第4步中的vba代码如下。

Sub 工作表为拆分工作簿()

On Error Resume Next

Application.DisplayAlerts = False

Application.ScreenUpdating = False

Dim Sht As Worksheet, Nwb As Workbook, Owb As Workbook

Dim OPath As String, NPath As String

Set Owb = ActiveWorkbook

OPath = Owb.Path

If Len(OPath) 0 Then

NPath = OPath & "" & "\" & Split(Owb.Name, ".x")(0) & "-拆分"

推荐文章

编织人生 · 一针一线教你绣一朵惊艳无比的太阳花，保证你都能学会！

7 年前

南沙365 · 南沙网2017年4月22日招聘信息

7 年前

sociology_cn · 俞敏洪：读书给你带来三样东西：情怀、胸怀和气质

7 年前

微赢销 · 【网红经济】年入10亿的头部网红是如何炼成的？

7 年前

艺博家庭教育 · ※学习“走神”怎么办？最实用的的教子干货！

7 年前