怎样将Excel文档里的工作表制成单独的EXCEL文档

2024-12-04 17:30:59

推荐回答（2个）

回答1：

用宏命令另存所有工作表为工作簿
使用方法：
1、打开你的工作簿

2、按Alt+F11进入VBA

3、在工程资源管理器窗口单击鼠标右键，选择插入->模块

4、把那个下面代码粘贴到模块中，运行一下就

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

回答2：

你说的是文档里其中的一部分要做成单独的吗？