一个文件多个工作表拆分问题

jykl007 · 发表于 2011-4-13 10:28

工作表拆分问题
我一个EXCEL文件，有若干个工作表，我想将各个工作表独立成为一个EXCEL文件，有没有简单的方法呀，因为工作表太多了。
听说有一个工具，麻烦大家告诉我一下。

119 · 发表于 2011-4-13 14:10

偶也想知道这样的工具。

zgr0123 · 发表于 2011-4-13 15:20

'当心哦，原始工作簿中的工作表不要太多哦！

Sub 另存所有工作表为工作簿()
Dim sht As Worksheet
Application.ScreenUpdating = False       '禁用屏幕刷新
ipath = ThisWorkbook.Path & "\"
For Each sht In Sheets
sht.Copy
ActiveWorkbook.SaveAs ipath &  sht.Name & ".xls" '(工作表名称为文件名）
ActiveWorkbook.Close
Next
Application.ScreenUpdating = True       '恢复屏幕刷新
End Sub

		自动登录	找回密码
密码			免费注册

[求助] 一个文件多个工作表拆分问题