按关键词阅读:
周末好!我是小雅!
今天为大家分享两段简短的VBA代码,一起来看看案例。
第一,Excel工作簿中有多张工作表,如何将所有工作表一次导出成多个独立文件?
比如这样一个工作簿包含下面这些工作表:
按Alt+F11打开VBA编辑器,插入新的模块,复制下面的内容到里面,按F5运行即可。
Sub SaveSeparately()
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
导出的效果如下面所示:
第二,如何统计出一个工作簿里有多少张工作表?
方法1:使用宏表函数
定义KKK=GET.WORKBOOK(4)
在单元格输入KKK
方法2:使用一句VBA代码
Sub 统计工作簿有多少张工作表()
MsgBox Sheets.Count
End Sub
如果您对VBA感兴趣,不妨关注小奇老师的《零基础玩会VBA》
课程。
课程咨询QQ:800094815另外,您想学习Excel函数公式,也请关注滴答老师刚录制的Excel函数公式视频教程
,一共17集,包含配套练习课件。长按下面二维码立即开始学习:
来源:(未知)
【】网址:/a/2018/0120/j165330.html
标题:提高Excel工作效率的两段VBA代码送给您
人文
推荐■世卫专家:中国抗疫模式可以复制,人类需要团结
阅读(32)
在被问及“中国的病例是否真的在削减”时,艾尔沃德坦言:“我知道有人困惑”。他表示,他访问的遍地都表示,比拟中国疫情峰值瓯,情况已经大年夜不一样了。此前天天都有约4.6万人请求检测,而在他离华时,这一数字降低为约天天1.3万人。“我看不出任何把持数据的迹象。...
人文
《上新了·故宫》第二季即将回归,邓伦携手张鲁一探索新惊喜
阅读(45)
文化节目《上新了·故宫》第二季将于11月8日在北京卫视回归 , 邓伦、张鲁一在这一季中联手出任“故宫文创新品开发员” 。 除了故宫本身近600年的历史变迁 , 第二季节目将以大历史观的视角带领观众重新了解故宫 , 时间维度纵横华夏五千年 。 《上新了·故宫》第二季...
人文
[网易娱乐]易烊千玺官网图翻车 痘坑抬头纹暴露皮肤状态
阅读(41)
其他角度的照片中,易烊千玺脸上的痘坑也十分明显,嘴唇更是干裂发白,整个人显得十分没有精神。不少网友都对这组图表示接受无能,希望易烊千玺可以多注意皮肤管理。:易烊千玺官网图翻车痘坑抬头纹暴露皮肤状态...
阅读(49)
北京壹网提示您本文原始标题 :“选美” “选美” [北京壹网www.jing111.com] 城市表情 时间:10月7日 地点:北京民俗博物馆(东岳庙) 场景:在由九百九十九盆菊花组成的九花塔前 , 身着旗袍的游客拍照后挑...
阅读(30)
北京壹网提示您本文原始标题 :外媒:美国犹他州发生枪击事件 4人中枪身亡 中新网1月18日电 据美国有线电视新闻网(CNN)报道 , 当地时间17日晚 , 美国犹他州发生枪击事件 , 4人中枪身亡 。 外媒:美国犹他州发生枪击事件 4人中枪身亡 [北京壹网www.jing111.com]...
人文
「擅先生」原创含沙射影?足协谈新帅强调担当引争议 换帅频率这
阅读(27)
近日足协某贰言人在接收新华社查访时表示新帅选择标准重要看四点:1、新任主锻练起重要有担当;2、要熟悉中国的联赛和队员;3、可以或许制订出相符国足队员才能和特点的┞方术;可以或许尽心尽力带领球队打好接下来的世预赛。足协方面特地把“有担当”作为新帅重要标准...