用宏运行:
Sub QEJebel()
Dim sh As Worksheet
Dim Pa As String
Pa = ThisWorkbook.Path
For Each sh In ThisWorkbook.Sheets
sh.Copy
ActiveWorkbook.SaveAs Pa & "\ " & sh.Name & ".xls"
ActiveWorkbook.Close
Next
End Sub
摘自:http://club.excelhome.net/thread-208892-1-1.html