如何将excel里的多个表格,保存成一个表格一个的单独文件?
展开全部
.Alt+F11 进入VBE
2.菜单:插入-模块。
3.复制下面的代码到光标处
4.Alt+F11回到Excel
5.Alt+F8 选Test,点击运行
'将工作簿所有工作表另存为单独的文件。
'路径为原工作簿路径,文件名为工作表名
Sub Test()
Dim Sht As Worksheet
For Each Sht In Sheets
Sht.Copy
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Sht.Name & ".xlsx"
ActiveWorkbook.Close
Next
End Sub
————————————————
版权声明:本文为CSDN博主「Kevin-林」的原创文章,遵循 CC 4.0 BY-SA 版权协议,转载请附上原文出处链接及本声明。
原文链接:https://blog.csdn.net/ljc2008110/article/details/50496442
2.菜单:插入-模块。
3.复制下面的代码到光标处
4.Alt+F11回到Excel
5.Alt+F8 选Test,点击运行
'将工作簿所有工作表另存为单独的文件。
'路径为原工作簿路径,文件名为工作表名
Sub Test()
Dim Sht As Worksheet
For Each Sht In Sheets
Sht.Copy
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Sht.Name & ".xlsx"
ActiveWorkbook.Close
Next
End Sub
————————————————
版权声明:本文为CSDN博主「Kevin-林」的原创文章,遵循 CC 4.0 BY-SA 版权协议,转载请附上原文出处链接及本声明。
原文链接:https://blog.csdn.net/ljc2008110/article/details/50496442
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
一个excel表格原来就可以放许多表格的,下面的票签(sheet1,sheet2…………可以增加很多),问题是现在要想把原来不在一起的表格要想归到一个表格,只能是通过手工复制过来。
追问
问题是一个sheet里面有多个文字表格,现在想保存一部分的文字表格为一个excl文件,怎么操作呢,复制粘贴过来格式就不对了
追答
把一个sheet的所在内容,点击表格左上角方块“全选”,然后在复制到的sheet表格里同样点击表格左上角方块“全选”,然后粘贴,这样复制过来的与原来一模一样,不会走样,然后把不需要的再删除。
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2014-05-19
展开全部
右键sheet1---移动或复制工作表---工作簿:选择 (新工作簿),勾选建立副本
更多追问追答
追问
问题是一个sheet里面有多个文字表格,现在想保存一部分的文字表格为一个excl文件,怎么操作呢,复制粘贴过来格式就不对了
追答
粘贴的时候选择选择性粘贴
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询