如何把工作薄里的多个工作表批量另存为独立的各自工作薄

lilianban

f1WNRiFY.rar (4.94 KB, 下载次数: 108)

2008-5-7 08:59 上传

点击文件名下载附件
如何把工作薄里的多个工作表批量另存为独立的各自工作薄

1个工作薄里有5个工作表，我想把每个工作表保存为独立的以工作表命名的5个工作薄，以前都是把工作表复制新的工作薄时再保存，因为实际工作薄有几十个，每次都要一个个的复制再保存，非常麻烦，请问有没有更简便的方法

lilianban

怎么没有人帮忙解决阿，

lsk19871987

我也为这个问题纠结啊。。。都两年了，没人回答啊

zgr0123

给你段宏吧。（坛里其他大师的作品，略改动。）
Sub 另存所有工作表为工作簿()
Dim sht As Worksheet
Dim num As Integer
Dim title As String
num = 1
title = InputBox("请输入工作簿文件名的开头字符", "拆分工作表为工作簿 ")
Application.ScreenUpdating = False         '禁用屏幕刷新
ipath = ThisWorkbook.Path & "\"
For Each sht In Sheets
    sht.Copy
    ActiveWorkbook.SaveAs ipath & title & "_" & num & "_" & sht.Name & ".xls"   '(工作表名称为文件名）
    num = num + 1
   ActiveWorkbook.Close
Next
Application.ScreenUpdating = True          '恢复屏幕刷新
End Sub

tywx

关键时候 还是要靠VBA

whuang

4楼，给的代码用啊，解决问题了，谢谢！

王輝

zgr0123 发表于 2011-10-10 09:48
**** 作者被禁止或删除 内容自动屏蔽 ****

屏蔽状态？

乐呵儿

whuang 发表于 2012-4-22 18:22
4楼，给的代码用啊，解决问题了，谢谢！

我都没弄好，能不能帮忙讲解下

hhxq001

zgr0123 发表于 2011-10-10 09:48
给你段宏吧。（坛里其他大师的作品，略改动。）
Sub 另存所有工作表为工作簿()
Dim sht As Worksheet

10年后我找到了这个，好用。