摘要：
用宏运行：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 NextEnd Sub摘自：http://club.excelhome.net/thread-208892-1-1.html 阅读全文
