将一个工作簿的工作表批量导出
2014-11-213条评论
就是需要把一个EXCEL文件中的一百多个工作表变成一百多个EXCEL文件，如一个EXCEL文件中有Sheet1~Sheet100个工作表，要批量分成1~100个EXCEL文件
但是记住，有一点是一定要将原来的Excel文件要备份一个，因为批量导出之后源表文件将被分解
摁 alt + f11,双击工程资源管理器里面的sheet1(sheet1),在右侧的代码区粘贴如下代码。运行。等候一会就OK了。
Sub 分表保存()
Dim x As Object
Application.ScreenUpdating = 0
Application.DisplayAlerts = 0
For Each x In Sheets
If Sheets.Count > 1 Then
x.Move
ActiveWorkbook.SaveAs ThisWorkbook.Path & “\” & ActiveSheet.Name & “.xls”
ActiveWorkbook.Close 1
End If
Next x
ActiveWorkbook.Close 1
Application.ScreenUpdating = 1
Application.DisplayAlerts = 1
End Sub
Tags: 工作表，工作簿，导出
将多个excel文件合并到一个工作表中，非常好用，转了2017年高职院校年生均财政拨款不低于1.2万元