excel一个工作簿中多个工作表拆分成多个工作簿
1、打开表格,如下一个工作簿中有多个工作表。
2、右击工作表名称,点击查看代码(V)。
3、显示如下页面。
4、空白处,复制黏贴如下信蝌怦吩曰息: Private Sub 分拆工作表() Dim sht As Worksheet Dim MyBook As Workbook Set MyBook = ActiveWorkbook For Each sht In MyBook.Sheets sht.Copy ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlNormal '将工作簿另存为EXCEL默认格式 ActiveWorkbook.Close Next MsgBox "文件已经被分拆完毕!" End Sub
5、点击运行-运行子过程/用户窗体。
6、完成后,保存,显示如下。
声明:本网站引用、摘录或转载内容仅供网站访问者交流或参考,不代表本站立场,如存在版权或非法内容,请联系站长删除,联系邮箱:site.kefu@qq.com。
阅读量:43
阅读量:57
阅读量:61
阅读量:60
阅读量:40