如何快速将多个excel工作表批量另存为单独的工作簿
时间:2022-02-08 19:46:45
有时会遇到这种情况,某个Excel工作簿中包含许多工作表,需要把其中的某个工作表发送给其他用户,或者将某几个工作表发送给不同的用户,通常的做法是将这些工作表移动或复制到新工作簿中,保存后再发送给他们。当工作表的数量较多时,逐一手动操作显得有些繁琐,这时用下面的VBA代码就非常方便了,方法如下:
按Alt+F11,打开VBA编辑器,在代码窗口中粘贴下列代码:
Sub SaveSheetAsWorkbook()
Dim theName As String
On Error GoTo Line1
For Each sht In ActiveWindow.SelectedSheets
sht.Copy
theName = ThisWorkbook.Path & ThisWorkbook.Name & "_" & sht.Name & ".xls"
ActiveWorkbook.SaveAs Filename:=theName, FileFormat:=xlNormal
ActiveWindow.Close
Next
Line1:
End Sub
关闭VBA编辑器,返回Excel界面,选择需要单独保存为工作簿的工作表,如果要选择多个工作表,可按Ctrl键或Shift键进行选择,然后按Alt+F8打开“宏”对话框,选择“SaveSheetAsWorkbook”宏执行即可。
上述代码将每个所选的工作表单独保存为一个工作簿,存放位置与原工作簿相同,名称为“原工作簿名称_工作表名称.xls”。如果是在新建且未保存的工作簿中运行代码,Excel会将新生成的工作簿保存到默认的文件位置,如“我的文档”。
标签:代码,保存,工作,选择,Excel函数
0
投稿
猜你喜欢
PPT如何删除图片背景插入单纯的图片?
2022-03-12 17:30:04
word超链接乱码该怎么办? word文字超链接变乱码的教程
2023-10-03 14:34:28
Arduino入门教程 新手指南
2023-01-14 20:32:36
不用U盘如何重装系统Win7?
2023-11-07 14:21:41
让 iPhone 无线投屏到 Mac 上
2023-03-25 21:16:23
Windows7的快速预览栏如何使用?【图】
2022-06-04 09:06:28
联想一体机如何重装系统?
2022-04-21 02:57:44
win10魔兽世界无法启动3d加速怎么办_win10魔兽世界不能启动3d加速解决方法
2022-10-04 23:21:32
wps数据透视表求和(图文)
2023-06-25 03:52:12
如何在 Touch Bar 上显示歌词?
2022-05-25 04:03:33
Winodws 10怎么使用快速访问功能?
2023-05-16 07:17:41
excel编辑公式的方法
2022-04-01 12:16:30
excel表格里怎么添加图片
2023-06-19 23:37:18
Windows7账户无法恢复初始密码的解决方法
2022-05-02 06:53:33
Win10电脑如何设置共享打印机?Win10电脑设置共享打印机图文教程
2022-11-24 08:52:31
如何编写代码获取大写锁定键或数字键盘键的状态?
2022-06-26 17:28:58
Word中进行打不开的解决方法
2022-07-18 18:24:57
Word表格rgb颜色模式怎么设置
2023-03-09 09:44:14
通过HttpClient请求Web Service的操作方法
2023-11-11 15:42:24
Win10正式版C盘inetpub文件夹删不掉怎么办?如何解决?
2022-06-07 18:58:02