房地产会计网

标题: 一个可以将工作簿按照里面的工作表名分成多个文件的宏 [打印本页]

作者: 银河飞雪 时间: 2008-4-11 16:29
标题: 一个可以将工作簿按照里面的工作表名分成多个文件的宏
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.Close
Next
Application.ScreenUpdating = True       '恢复屏幕刷新
End Sub

作者: 小可 时间: 2008-4-12 08:33

看来需要好好学习excel的知识了

作者: 起舞弄清影 时间: 2008-4-12 08:35
好复杂啊，没怎么看懂，

作者: error 时间: 2008-4-13 10:31
看不懂,呵呵
有什么用处啊

作者: 蓝灵儿 时间: 2008-5-30 14:13
啊，还不会用宏，感觉像天书一样

作者: 菜豆腐 时间: 2009-4-28 16:26
我也不会用宏啊抽空一定得学学

作者: ppp123 时间: 2009-5-9 22:36
excel 的宏比较简单可以录制后修改！

作者: 蒙会计 时间: 2010-12-20 15:15
有点不明白真的不明白

欢迎光临房地产会计网 (https://www.fdckj.com/)