首页 > 婚恋情感

一键建立多个工作簿 如何把EXCEL表中每一行单独另存为一个EXCEL文件？

实习编辑 • 2023-11-21 05:07:08 • 婚恋情感 • 阅读 3

如何把excel表中每一行单独另存为一个excel文件？

功能：用当前工作薄每条记录创建一个新的工作薄，每个新建工作薄以第一行为标题行，第二行为记录，以a列记录为工作薄名称自动保存。友情提示：

1、如何把下面的代码添加到vba环境：点击“开发工具”－“visualbasic”进入vba编辑环境，在左侧的“工程”树里点击鼠标右键，选择“插入”－“模块”，然后把下面的代码粘贴到右侧的编辑区里。2、如何使用：可创建热键调用，也可点击“开发工具”－“visualbasic”进入vba编辑环境，在该过程代码里点击一下，然后点击工具栏上的运行按钮（是一个实心三角形，鼠标放上去停留一会，有提示“运行子过程/...”）。

subsplitexl()application.displayalertsfalse新建的文档存在时，不发送警示，覆盖式保存dimlngrs,lngcs,cx,strendcl$dimtopr(),everyr(),oexlasobject,owkasworkbookdimstrpath$strpath(replace(cells(1,lngcs).address,$,),1,

一键建立多个工作簿 如何把EXCEL表中每一行单独另存为一个EXCEL文件？

)toprrange(a1:strendcl1)数据标题行forcx2tolngrseveryrrange(aformat(cx):strendclformat(cx))把每行记录放入数组setowk(1).range(a1:strendcl1)topr把标题行放入另建的工作薄.range(a2:strendcl2)everyr把单个记录放入同一另建的工作薄(1,1).xls以每行a列记录为工作薄名称.closeendwithnextsetowknothingsetoexlnothingerasetopr:eraseeveryrapplication.displayalertstrueendsub

excel中的“工具---保护----保护工作簿”有什么作用？

“工具---保护----保护工作簿”是保护工作表每一页的名称、位置不被改动，被保护之后，你不能修改工作表名称，也不能插入或删除工作表。工作表的保护只能一个一个的做，不能一下都保护了。

原文标题：一键建立多个工作簿 如何把EXCEL表中每一行单独另存为一个EXCEL文件？，如若转载，请注明出处：https://www.xinyige.net/xyg5/34149.html
免责声明：此资讯系转载自合作媒体或互联网其它网站，「鑫艺阁」登载此文出于传递更多信息之目的，并不意味着赞同其观点或证实其描述，文章内容仅供参考。

一键建立多个工作簿 如何把EXCEL表中每一行单独另存为一个EXCEL文件？ 一键建立多个工作簿 如何把EXCEL表中每一行单独另存为一个EXCEL文件？介绍
赞 ( )
打赏 微信扫一扫微信扫一扫
上一篇：excel金额拆分 excel怎么将一个单元格拆分为多格？ 下一篇：蜻蜓fm录制要买什么设备 蜻蜓fm播放量如何增高？

相关推荐