Excel VBA 拆分工作簿

在Excel中，由于每个工作簿可以包含多张工作表,因此可在一个文件中管理多种类型的相关信息。但是有的时候，我们需要拆分这些工作表作为一个新的工作簿中的工作表。下面我们用VBA来完成此操作。
作者：Excel小子-Office中国
Excel vba 实现拆分工作簿动画效果：
1480918185133906.gif (307.59 KB, 下载次数: 0, 售价: 4 金钱)

2022-4-26 11:29 上传

点击文件名下载附件
1480918185133906.gif

如上图，在工作表中创建一个椭圆图形，指定相关的宏代码。点击“拆分”按钮后。选择需要拆分的Excel文件。系统会自动在当前文件夹下把选中的工作簿拆分为多个独立的工作簿。
Excel vba 实现拆分工作簿的主要代码：
然后在工作表代码中
Sub test3()  '打开文件Dim digDim wk As WorkbookDim sh As WorksheetDim wb As WorkbookSet dig = Application.FileDialog(msoFileDialogOpen)With dig.AllowMultiSelect = True.Filters.Add "Excel文件", "*.xls*", 1.InitialFileName = "D:\".Title = "对话框测试"If .Show = 0 Then        '判断是否点了取消Exit SubElse.Execute           '执行打开命令Set wk = ActiveWorkbookFor Each sh In wk.Worksheets   Set wb = Workbooks.Add  sh.Copy before:=wb.Worksheets(1)  wb.SaveAs Replace(ThisWorkbook.FullName, ThisWorkbook.Name, sh.Name)  wb.Close TrueNext shwk.Close False
End IfEnd WithEnd Sub
点击加入群：Excel部落结识Excel大神学好Excel,效率成倍提高，薪水稳步增长，职位快速提升
每天一个源创技巧，如觉得有用，请点上面关注。更重要手机转发分享
标签:&nbsp&nbsp&nbspexcel&nbspexcel vba&nbsp拆分工作簿