VBA学习笔记2：将工作簿的表格拆分为工作簿

1、判断原有工作簿的sheet是否需要拆分；
2、如需拆分则创建新表；
3、将原sheet复制到新建的工作簿中。

效果如下：
代码执行前,有1个工作簿，需要将除sheet1外的其他3个sheet拆分为不同的工作表：

执行后：
由于文件夹中已有“理三一班”等工作簿，故重命名时在前面都加了new。

代码如下：

Sub 拆分工作簿()Dim sht As WorksheetFor Each sht In ThisWorkbook.Worksheets '开始循环脚本所在工作簿中的所有工作表If sht.Name <> "sheet1" Then '除sheet1外，所有工作表都需要复制为独立的工作簿Workbooks.Add.SaveAs ThisWorkbook.Path & "\new" & sht.Name '新建一个工作簿，并给工作簿命名（saveas 后面的是新的工作簿名称，这里重命名时用了new+工作簿名）sht.Copy ActiveSheet '默认将原表复制到活动表的前面Application.DisplayAlerts = False '当对工作簿进行了变更，在关闭时会弹出弹框“是否要保存变更”，为了不显示该弹窗，将application.displayalerts设置为FalseActiveWorkbook.Sheets("Sheet1").Delete '我们在新建工作簿时会默认建立一个Sheet1,现在将其删除，仅保留复制的工作表ActiveWorkbook.Close 1 '将活动的工作簿关闭,因为我们需要保存对工作簿的修改，故close后面跟1，否则跟0或不跟Application.DisplayAlerts = True '打开提示框，则如果再发生变化弹窗会弹出End If '如果工作簿的名字为sheet1，则跳过Next sht '遍历下一个sheet
End Sub

VBA学习笔记2：将工作簿的表格拆分为工作簿相关推荐

VBA学习笔记5：将同一工作簿的数据按照类别拆分为多个工作簿
VBA学习笔记5:将同一工作簿的数据按照类别拆分为多个工作簿 1.对每行数据按照类别所在列进行循环,判断某类别的工作簿是否存在: 2.如果不存在,则新建工作簿并将该行数据复制粘贴: 3.如果存在则打开 ...
VBA学习笔记3：合并同一工作簿下的多个表格
VBA学习笔记3:合并同一工作簿下的多个表格 1.建立一个新的汇总表: 2.将其他sheet数据复制到汇总表中. 效果如下: 需要将3个sheet的表的数据汇总起来汇总后的数据: 代码如下: Sub ...
VBA学习笔记1：将同个文件夹中的工作簿汇总为一个工作簿，并建立目录超链接
VBA学习笔记1:将同个文件夹中的工作簿汇总为一个工作簿,并建立目录超链接 1.将文件夹中的xlsx文件名复制到新工作簿: 2.将文件夹中的xlsx数据簿中的sheet复制到新表并重命名: 3.插入超 ...
陈表达VBA学习笔记-新建工作表鼠标右键菜单按钮
陈表达VBA学习笔记-新建工作表鼠标右键菜单按钮:新建一个我的菜单按钮设置对应的宏过程名称为 [我的菜单宏] 点击按钮弹窗信息,信息可自定义设置详细代码如下: Sub 新建右键菜单()Dim 菜单 ...
Excel VBA 学习笔记13：单元格的格式
Excel VBA 学习笔记13:单元格的格式 NumberFormat 属性 (Excel) vba excel 单元格格式设置 Excel VBA 单元格格式 python解决SNIMissing ...
VBA学习笔记（9）--生成点拨（1）
VBA学习笔记(9)--生成点拨(1) 说明(2017.3.26): 1. 还没写完,写到新建文件夹了,下一步新建word,重命名,查找点拨,把点拨复制进去,因为要给点拨编号,应该会很麻烦 1 Pub ...
VBA学习笔记8：单元格的合并与拆分
VBA学习笔记8:单元格的合并与拆分如下图,需要实现1图到2图(单元格合并),或2图到1图(单元格拆分). 1图: 2图: 合并单元格代码如下: Sub 合并单元格()Dim k%, rng As ...
Excel·VBA工作表整列拆分为工作簿
不同于<Excel·VBA按列拆分工作表.工作簿>按某列的值对工作表拆分,仅按固定列数拆分工作表单独保存为工作簿,类似于<Excel·VBA按行拆分工作表> Sub 工作表整列 ...
VBA 学习笔记 - 网络请求
VBA 学习笔记 - 网络请求 Microsoft.XMLHTTP MSXML2.serverXMLHTTP.6.0 WinHttp.WinHttpRequest.5.1 参考资料 Microsoft ...

VBA学习笔记2：将工作簿的表格拆分为工作簿

VBA学习笔记2：将工作簿的表格拆分为工作簿

代码如下：

VBA学习笔记2：将工作簿的表格拆分为工作簿相关推荐

最新文章

热门文章