功能:用当前工作薄每条记录创建一个新的工作薄,每个新建工作薄以第一行为标题行,第二行为记录,以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,
)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
“工具---保护----保护工作簿”是保护工作表每一页的名称、位置不被改动,被保护之后,你不能修改工作表名称,也不能插入或删除工作表。工作表的保护只能一个一个的做,不能一下都保护了。