Excel文件将多Sheet页导出为多个Excel文件

本文介绍如何使用VBA脚本,通过`SubsaveWorkbook()`函数,批量将Excel工作簿中的每个Sheet另存为单独的.xlsx文件,同时根据Sheet名称进行命名。脚本首先关闭屏幕更新,检查文件夹,然后遍历所有Sheet,复制并保存为新工作簿,最后恢复屏幕更新。
摘要由CSDN通过智能技术生成

Sub saveworkbook()

'将sheet工作表批量另存为独立的工作簿,并命名成sheet表的名称

Application.ScreenUpdating = False '关闭屏幕更新

Dim ff As String '定义字符变量

ff = ThisWorkbook.Path & "\五座神山"

'指定建立新的工作簿保存到的路径

If Len(Dir(ff, vbDirectory)) = 0 Then MkDir ff

'如果五座神山的文件架不存在,就新建文件夹;mkdir用来 新建文件夹

Dim st As Worksheet   '定义工作表变量

For Each st In Worksheets  '遍历所有的sheet工作表

   st.Copy     ' 拷贝sheet工作表到新的工作簿,即将工作表另存为新的文件。

   ActiveWorkbook.SaveAs ff & "\" & st.Name & ".xlsx"  '保存工作簿,并命名成工作表的名称

   ActiveWorkbook.Close         '关闭工作表

   Next '执行遍历循环体

Application.ScreenUpdating = True   '开启屏幕更新

End Sub

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值