将一个office excel表格的中的各个excel小表格一次性导出

来源：百度知道 编辑：UC知道 时间：2024/05/13 03:26:25
我在我的excel大表里面分了很多表，有几十个。我需要把这些表格分别导出，要是一个个的复制粘贴到新建的excel表太慢，有没有哪位大虾知道可以一次导出的方法？
同意所有条款，你好，谢谢你的这些帮助，我想你理解错我的意思了。我的意思是把excel大表里面的几十个表分别导出到几十个新建的excel表里面。

打开要拆分的工作簿，按照下面的步骤操作：
1、ALT+F11进入VBA编辑器，
2、在左上角的工程资源管理器（如果没有按组合键ctrl + R调出来)，右击thisworkbook，点击插入→模块，在右侧的空白代码区粘贴下面代码。

Sub 分解工作簿()

' 同意所有条款2009-5-26

mypath = ActiveWorkbook.Path
wbname = ActiveWorkbook.Name

For i = 1 To Sheets.Count
Windows(wbname).Activate
stname = Sheets(i).Name
Sheets(i).Select
Sheets(i).Copy
ActiveWorkbook.SaveAs Filename:=mypath & "\" & stname & ".xls", FileFormat:=xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close
Next
End Sub

3、摁下F5运行，等候片刻，OVER

用表格拆分工具

Public Sub cebiao()
'假设大表在第一张表，其小表的行标序号如下
bhang = Array(10, 30, 50, 70, 90, 110, 130, 150, 170, 190, 210, _
230, 250, 270, 290, 310, 330, 350, 370, 390, 410, 430, _
450, 470, 490, 510, 530, 550, 570, 590, 610)
n = UBound(bhang