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