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

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

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

那就很shit了

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

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

是啊！
这个得用宏！