EXCEL按Sheet拆分文件

需求：按Sheet名称拆分Excel表格到独立的文件

比如这里，要将1月、2月、3月的工资表分别拆分到独立的每一个文件

这里需要使用的VBS，步骤如下：

开发工具->Visual Basic->ThisWorkbook->录入代码->运行

运行结果

Sub Split_Sheet_into_ExcelFiles()
    Dim FilePath As String
    FilePath = Application.ActiveWorkbook.Path
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    For Each Sheet In ThisWorkbook.Sheets
        If Sheet.Visible = True Then
            Sheet.Copy
            Application.ActiveWorkbook.SaveAs Filename:=FilePath _
            & "\" & Sheet.Name & ".xlsx"
            Application.ActiveWorkbook.Close False
        End If
    Next
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub