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