【原】VBA 实例拆分工作薄

黄河简笔画 2020-03-19

展开全文

Sub 拆分工作薄()
Dim sht As Worksheet '定义一个工作表变量 sht

Dim mybook As Workbook

'定义一个工作簿变量 mybook

Application.ScreenUpdating = False
Set mybook = ActiveWorkbook
VBA.MkDir (mybook.Path & "\分后数据")
For Each sht In mybook.Sheets
    sht.Copy
    With ActiveWorkbook
            .SaveAs Filename:=mybook.Path & "\分后数据\" & sht.Name, FileFormat:=56
            .Close
    End With
Next

Application.ScreenUpdating = True

End Sub