工作中,有时我们会遇到一个工作簿里面有很多张工作表,看得非常辛苦。
今天,十年先生为大家分享一段简短VBA代码。
功能:Excel工作簿中有多张工作表,实现将所有工作表一次导出成多个独立文件。
1、数据源准备,打开Excel工作簿,如下所示:
2、按Alt F11打开VBA编辑器,插入新的模块,复制下面的内容到里面,按F5运行即可。
代码如下:
Sub SaveSeparately()
Dim sht As Worksheet
Application.ScreenUpdating = False
ipath = ThisWorkbook.Path &'\'
For Each sht In Sheets
sht.Copy
ActiveWorkbook.SaveAs ipath & sht.Name
ActiveWorkbook.Close
Next
Application.ScreenUpdating = True
End Sub
动态操作及效果图:
联系客服