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

来源：互联网发布：如何成为淘宝砍价师编辑：程序博客网时间：2024/05/17 08:09

今天，做会计的朋友问我一个问题，怎么讲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

阅读全文

0 0