搜索
我的图书馆

文具盒

发文工具

其他工具

留言交流
搜索
分享

excel文件里有多个sheet，把每个sheet全部导出为单独的xls或xlsx

 昵称27943849 2018-04-05
  1. '将工作簿所有工作表另存为单独的文件。   
  2. '路径为原工作簿路径，文件名为工作表名   
  3.   
  4. Sub Test()   
  5.     Dim Sht As Worksheet   
  6.     For Each Sht In Sheets   
  7.         Sht.Copy   
  8.         ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Sht.Name & ".xls"   
  9.         ActiveWorkbook.Close   
  10.     Next   
  11. End Sub 

    本站是提供个人知识管理的网络存储空间，所有内容均由用户发布，不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息，谨防诈骗。如发现有害或侵权内容，请点击一键举报。
    转藏 分享 献花（0）

    来自： 昵称27943849 > 《EXCEL》

    举报/认领

    0条评论

    发表

    请遵守用户 评论公约

    热点新闻
    类似文章 更多