房地产会计网-引领房地产会计行业潮流!

房地产会计网

 找回密码
 注册

QQ登录

只需一步,快速开始

用新浪微博连接

一步搞定

论坛热门版块 国内最热门的房地产财务同行交流平台 房产会计问吧 - 房产会计实务 - 纳税筹划

论坛推荐版块 我们的宗旨:房会天下 网聚精英 房产会计专题 - 房产开发资料 - 成本预算

网站培训课程 房地产会计财税专业培训 财税课程咨询 - 课程在线报名

查看: 5590|回复: 7
打印 上一主题 下一主题

[excel] 一个可以将工作簿按照里面的工作表名分成多个文件的宏 [复制链接]

  • TA的每日心情
    开心
    2023-11-28 10:15
  • 签到天数: 85 天

    [LV.6]常住居民II

    跳转到指定楼层
    1#
    发表于 2008-4-11 16:29:42 |只看该作者 |倒序浏览
    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
    分享到: QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
    分享分享0 收藏收藏0 顶0 踩0 转发到微博
    九鼎财税

    该用户从未签到

    2#
    发表于 2008-4-12 08:33:51 |只看该作者
    看来需要好好学习excel的知识了

  • TA的每日心情
    开心
    2023-11-3 09:37
  • 签到天数: 101 天

    [LV.6]常住居民II

    3#
    发表于 2008-4-12 08:35:19 |只看该作者
    好复杂啊,没怎么看懂,

  • TA的每日心情
    郁闷
    2014-10-13 14:54
  • 签到天数: 6 天

    [LV.2]偶尔看看I

    4#
    发表于 2008-4-13 10:31:15 |只看该作者
    看不懂,呵呵
    有什么用处啊

  • TA的每日心情
    开心
    2016-8-18 14:30
  • 签到天数: 15 天

    [LV.4]偶尔看看III

    5#
    发表于 2008-5-30 14:13:48 |只看该作者
    啊,还不会用宏,感觉像天书一样

  • TA的每日心情
    奋斗
    2017-3-28 15:06
  • 签到天数: 38 天

    [LV.5]常住居民I

    6#
    发表于 2009-4-28 16:26:27 |只看该作者
    我也不会用宏啊 抽空一定得学学

    该用户从未签到

    7#
    发表于 2009-5-9 22:36:29 |只看该作者
    excel 的宏 比较简单 可以录制后修改!

  • TA的每日心情
    开心
    2017-2-23 23:16
  • 签到天数: 42 天

    [LV.5]常住居民I

    8#
    发表于 2010-12-20 15:15:43 |只看该作者
    有点不明白真的不明白

    发表回复

    您需要登录后才可以回帖 登录 | 注册

    本版积分规则

    关闭

    推荐阅读

    返回顶部