1未命名0
注册登录

excel把工作表快速保存为单个文件

admin
🌐 经济型：买域名、轻量云服务器、用途：游戏 网站等 《腾讯云》特点：特价机便宜 适合初学者用 点我优惠购买
🚀 拓展型：买域名、轻量云服务器、用途：游戏 网站等 《阿里云》特点：中档服务器便宜 域名备案事多 点我优惠购买
🛡️ 稳定型：买域名、轻量云服务器、用途：游戏 网站等 《西部数码》 特点：比上两家略贵但是稳定性超好事也少 点我优惠购买

文章最后更新时间：2023年05月25日已超过894天没有更新。

简单粗暴的解决 excel把工作表快速保存为单个文件 的问题

首先创建文件夹F，把要保存单个文件test.xsl的excel文件拖到里面

image.png

目前这个文件夹里面有5个工作表，随便点击一个工作表，右键——查看源码


image.png

输入代码，然后点击上边【运行】

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub fencun()
Application.ScreenUpdating = False
b = Sheets.Count
For i = 1 To b
Sheets(i).Copy
a = ThisWorkbook.Worksheets(i).Name
With ActiveWorkbook
.SaveAs Filename:=ThisWorkbook.Path & "\" & a & ".xlsx"
.Close
End With
Next i
Application.ScreenUpdating = true
End Sub


大功告成

image.png


文章版权声明：除非注明，否则均为AI虎哥的工具库原创文章，转载或复制请以超链接形式并注明出处。

相关阅读

  • Zblog付费主题开心方法教程
  • 外面收费288的腾讯小游戏掘金项目日入50💰
  • MC我的世界指令生成器
  • AI系列最强文字转语音 ChatTTS增强版v3全开源 本地运行
  • Nginx反向代理与负载均衡配置
  • Linux常用一键脚本-实用工具库
  • 夸克网盘下载速度慢？无需第三方工具，简单三步快速提速！
  • 123云盘绕开流量限制、解除自用流量不足的方法和技巧

    • 发表评论

    快捷回复： 表情：
    AddoilApplauseBadlaughBombCoffeeFabulousFacepalmFecesFrownHeyhaInsidiousKeepFightingNoProbPigHeadShockedSinistersmileSlapSocialSweatTolaughWatermelonWittyWowYeahYellowdog
    验证码
    评论列表 （暂无评论，565人围观）

    还没有评论，来说两句吧...

    目录[+]

    取消
    微信二维码
    微信二维码
    支付宝二维码