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

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