胜芳新闻,胜芳资讯

Private Sub 按工作表拆分工作簿()

       Dim sht As Worksheet

       Dim MyBook As Workbook

       Set MyBook = ActiveWorkbook

       For Each sht In MyBook.Sheets

           sht.Copy

           ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlOpenXMLWorkbook     '将工作簿另存为xlsx格式

          ActiveWorkbook.Close

       Next

       MsgBox "文件已经被分拆完毕!"

   End Sub