一表多分

来源：百度文库编辑：神马文学网时间：2024/04/29 07:57:32

一表多分 '把一个工作薄内的每个工作表分开保存为本文件夹下一个个工作簿
Sub wokao()
    Dim sht As Worksheet
    For Each sht In ThisWorkbook.Worksheets
        sht.Copy
        ActiveWorkbook.Close SaveChanges:=True, Filename:=ThisWorkbook.Path & "\" & sht.Name & ".xls"
    Next
End Sub

一表多分