
excel
Sub SplitWorkbook() Dim wb As Workbook Set wb = ThisWorkbook For Each ws In wb.Worksheets ws.Copy ActiveWorkbook.Close ActiveWorkbook.Close SaveChanges:=False Set ws2 = Workbooks(wb.Name & "_Part2").Worksheets(1) ws2.Name = ws.Name Next wsEnd Sub4、点击菜单栏上的“运行”,选择“运行子过程|窗体”。几秒钟后,“文件已被拆分完毕”的提示窗口会弹出,确认操作已完成。5、返回excel工作簿文件所在路径,检查是否成功将原先的工作簿拆分为若干个单独工作簿。修改日期也可以用来验证操作是否生效。注:以上步骤仅适用于Microsoft Office excel 2007及更高版本的excel软件。Copyright © 2025 IZhiDa.com All Rights Reserved.
知答 版权所有 粤ICP备2023042255号