Hello and welcome to beautiful 津津有味Jjuv Blog.
Sub fenchai()
On Error Resume Next
Dim WB As Workbook, i As Integer
Set WB = ThisWorkbook
For i = 1 To WB.Worksheets.Count '获得工作簿中表的个数
WB.Worksheets(i).Copy '复制工作表
ActiveWorkbook.SaveAs Filename:="c:\分拆文档\" & WB.Worksheets(i).Name & "TB.xls" '保存文档
ActiveWindow.Close
Next i
End Sub
25.06.09 at 14:45
Posted by EXCEL VBA笔记(不断更新中) | 津津有味Jjuv Blog
[...] Q5.Excel工作簿中工作表分别保存为文件 A5.http://blog.jjuv.com/2009/03/13/excel-worksheet-saved-as-files-separately.html [...]
05.08.09 at 09:19
Posted by huang
宏有效，谢谢，就是不能自动保存成多个文件，比较麻烦，建议修改成自动保存成多个文件，那样就比较完美了。
06.08.09 at 23:45
Posted by crcw
保存文档时，会根据sheet name来另存啊
Copyright 2007 by 津津有味Jjuv.
Design by Igor Penjivrag.
3 Comments to “Excel工作簿中工作表分别保存为文件”