Excel教程：提高Excel工作效率的两段VBA代码送给您
哈喽，大家周末好！今天为大家分享两段简短的VBA代码，一起来看看案例。
1
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
导出的效果如下面所示：
2
如何统计出一个工作簿里有多少张工作表?
方法1：使用宏表函数
定义KKK=GET.WORKBOOK(4)
在单元格输入KKK
方法2：使用一句VBA代码
Sub 统计工作簿有多少张工作表()
MsgBox Sheets.Count
End Sub
这两段VBA代码你学会了吗？欢迎在评论区留言告诉小编哦~
扫一扫，微信咨询Excel课程
Excel教程相关推荐
想要跟随滴答老师全面系统学习Excel，不妨关注《一周Excel直通车》视频课或者《Excel极速贯通班》。
《一周Excel直通车》视频课
包含Excel技巧、函数公式、
数据透视表、图表。
一次购买，永久学习。
最实用接地气的Excel视频课
《一周Excel直通车》
风趣易懂，快速高效，带您7天学会Excel
38 节视频大课
（已更新完毕，可永久学习）
理论+实操一应俱全
主讲老师： 滴答
Excel技术大神，资深培训师；
课程粉丝100万+；
开发有《Excel小白脱白系列课》
《Excel极速贯通班》。
原价299元
限时特价 99 元，随时涨价
少喝两杯咖啡，少吃两袋零食
就能习得受用一生的Excel职场技能！