Excel用代码将工作表保存为工作簿

今天，做会计的朋友问我一个问题，怎么讲Excel的工作表拆分成单独的文件，并给我发了一个链接。

 https://jingyan.baidu.com/article/75ab0bcb0ecc67d6874db27e.html 

说这个在他那执行不了，他还以为是office是非正版，专门买了个正版的。

随便试了下，发现能执行，让他截图，发现是他的工作表都是 用日期命名的，比如2016.1，然后拆分的文件就直接把 .1当成后缀名了。

修改下，强制将保存的文件以xls结尾，让他拿去执行了。我还真是第一次知道excel 还能用 代码来执行批量操作，又学到了。

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 & ".xls", FileFormat:=xlNormal     '将工作簿另存为EXCEL默认格式
           ActiveWorkbook.Close
       Next
       MsgBox "文件已经被分拆完毕!"
   End Sub