1未命名0
注册登录

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

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

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

简单粗暴的解决 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


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

相关阅读

  • 黑神话：悟空辅助工具包含35项功能的游戏修改器、提供无敌模式、无限生命等辅助功能
  • 强大彪悍的RAR压缩包密码暴力破解工具
  • 手机+电脑同屏神器
  • 亲测：易语言编写的无损图片批量压缩软件无限制版可api调用AI压缩超简单操作
  • 威力导演无限制旗舰版Power Director 2024 手机+PC
  • 小熊录屏_2.4.7.1永久无限制版
  • 收藏的经典的DOS远程桌面连接命令
  • 按键精灵去广告版

    • 发表评论

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

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

    目录[+]

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