返回首页
当前位置: 主页 > 精通Office > Excel教程 >

一个excel工作簿中有几十个表,怎么能把每个表都弄成一个单独的

时间:2016-04-25 21:02来源:知行网www.zhixing123.cn 编辑:麦田守望者

一个工作簿中有几十个表,怎么能把每个表都弄成一个单独的工作簿。有没有快速解决的方法?

【解答】

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.SaveAs ipath & sht.Name & Trim(sht.[d15])& “.xls” ‘(工作表名称 & D15单元内容)

‘ActiveWorkbook.SaveAs ipath & Trim(sht.[d15]) & “.xls” ‘(文件名称为D15单元内容)

ActiveWorkbook.Close Next Application.ScreenUpdating = True ‘恢复屏幕刷新

End Sub

------分隔线----------------------------
标签(Tag):EXCEL excel2013 Excel技巧 Excel2007 Excel2003 Excel2010 Excel教程 Excel实例教程
------分隔线----------------------------
推荐内容
猜你感兴趣