execl一个工作薄中有几个个工作表,将这几个个工作表分别保存到不同execl文件中

用宏运行:

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

上一篇:【斜优DP】bzoj4518-Sdoi2016征途


下一篇:PHP redis 批量操作