Question

excel文件里有多个sheet，怎样把每个sheet全部导出为单独的xls

excel文件里有多个sheet，怎样把每个sheet全部导出为单独的xls，还是用原sheet名命名，一个一个的另存为太费劲，有太多sheet

Answer 1

1.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 & ".xls"
ActiveWorkbook.Close
Next
End Sub

Answer 2

直接点击这个SHEET,然后右键移动或复制工作表/工作簿下拉菜单:新工作簿,保存就可以了

Answer 3

那就很shit了

编辑---移动或复制工作表---工作簿----新工作簿----确定-----再保存就ok了

Answer 4

是啊！
这个得用宏！

Answer 5

这个可能要用到宏了。到excel home论坛去看看吧。