excel 如何分解工作簿中的工作表分成单个的文件？

2025-04-04 20:07:45

推荐回答（1个）

回答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