欢迎来到天天文库
浏览记录
ID：56429917
大小：193.50 KB
页数：2页
时间：2020-06-23
《如何将一份excel文件所有工作表单独拆分开来.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、如何将一份excel文件所有工作表单独拆分开来首先打开该excel文件，键盘快捷键：“Alt+F11”会自动弹出VisualBasic：然后双击一个工作表把一下代码复制进去，代码如下：PrivateSub分拆工作表()DimshtAsWorksheetDimMyBookAsWorkbookSetMyBook=ActiveWorkbookForEachshtInMyBook.Sheetssht.CopyActiveWorkbook.SaveAsFilename:=MyBook.Path&""&sht.Name,Fi
2、leFormat:=xlNormal'将工作簿另存为EXCEL默认格式ActiveWorkbook.CloseNextMsgBox"文件已经被分拆完毕!"EndSub复制完之后点工具栏上的运行就OK了！
此文档下载收益归作者所有
